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How to Use this Manual 

This manual contains five chapters, one for each portion of 
the IBM System/34 Utilities Program Product: 

Chapter 1. Work Station Utility 

Chapter 2. Screen Design Aid Utility 

Chapter 3. Data File Utility 

Chapter 4, Source Entry Utility 

Chapter 5. Sort 

The following sections are included within each chapter: 

1. Introduction describes the purpose, function, and 
operation of the Utilities Program Product. 

2. Method of Operation describes the functional flow 
within the program product. 

3. Program Organization describes module flow and 
storage maps within the various programs that 
comprise the Utility Program Product. 

4. Directory contains information needed for quick 
reference to the program product module listings. 

5. Data Areas describes the usage and location of the 
data areas used by the program product. 

6. Diagnostic Aids lists the diagnostic messages issued 
by the various modules within the program product 
and lists certain applicable program procedure listings. 

Additionally, the WSU and SDA chapters contain indexes 
to help you locate subjects within the chapter. 
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Chapter 1. Work Station Utility (WSU) 



Introduction 

WSU (the work station utility), a program of the Utilities 
Program Product, provides a way to code data entry, data 
edit, data correction, and inquiry programs for System/34. 
Data entry, edit, and correction programs can be front-end 
entry for RPG II programs that do final editing, processing, 
updating, and printing (WSU does not provide printed 
output). 

A WSU program can be used by eight operators at once 
(the program is a multiple-requesting-terminal program). 
Each program, using input from data entered by operators, 
from as many as ten master files (direct or indexed files), 
and from results of operations within the program, creates 
or maintains one transaction file (a direct, output file). 
Also, the program can update master files. 



HOW THE PROGRAM WORKS 



Figure 1-1 is an overview of how WSU works. WSU genera- 
tion begins when the WSU procedure command or the WSU 
procedure OCL is entered. The procedure command that 
begins WSU generation is: 

WSU source program name, [library name] , [number of blocks] , [REPLACE] 



LIST 
NOLIST 
NOLISTW 
NOLISTS 



source program name: Name of the member that contains 

the source program. 

library name: Name of the library that contains the 

source program. 

number of blocks: Number of blocks allocated for a 

work file. 

REPLACE: Replace existing members with new 

members that have the same name as those created during 

generation. 

LIST: A complete listing is printed for generation. 

NOLIST: Only the WSU generated procedure, job 

statistics, and message text are listed. 

NOLISTW: The WSU generated procedure, job statistics, 

message text, and $SFGR output are listed. 

NOLISTS: A complete WSU listing is printed, but no 

$SFGR listing is printed. 



Work Station Utility (WSU) 1 -1 



Licensed Material— Property of IBM 



Figure 1-1. WSU Overview 
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Refer to Chapter 1 of the WSU Reference Manual for a 
description of the OCL that begins WSU generation. 

During program generation, WSU uses the last 18 bytes of 
the display station's local data area for communicating with 
$SFGR. Any user data in these 18 bytes will be lost during 
generation. 



When #WSXI1 processing is complete, #WSXI2 is loaded 
over #WSXI1 and control is passed to #WSXI2. 

The main functions performed by #WSXI1 are: 

• Allocate and open the transaction file and the master 
files. 



Output from generation consists of: 

• A WSU program (USEROBJ object member). This 
object member contains compressed source statements 
that are used by WSU execution. 

• A procedure (USERPROC) that calls the WSU program. 
This procedure is an MRT procedure. Refer to Chapter 1 
of the WSU Reference Manual for a description of the 
OCL that begins WSU generation. 

• A format member (USERFMT object member) that 
contains as many as 32 display screen formats (one for 
each display in the program). 

• A listing of: 

— RPG II F specifications and I specifications in the 
data dictionary 

— WSU source specifications 

— Generation information (for example, messages) 

— Source statements for the screen format generator 
program ($SFGR) 

Execution processing begins when USERPROC is invoked 
by the operator. OCL statements in USERPROC are 
processed by the system support program (SSP) scheduler, 
and control is passed to the WSU execution initiator 
(#WSXI1 and#WSXI2). 

#WSXI1 and #WSXI2 initialize the execution environment. 
The main functions performed by #WSXI1 are: 

• Find the input members (USEROBJ, USERFMT, and 
USERMSG) specified on the utility control statement 
in USERPROC. 

• Read and process USEROBJ. 

• Format the permanent elements and main storage data 
areas. 

• Open the screen format members. 



• Build a work file (WORKFILE). 

• Position the initialization parameter block ahead of the 
permanent elements. 

The last function performed by the execution initiator is 
to load the WSU execution processor (#WSXP) over 
#WSXI2 and pass control to #WSXP. 

#WSXP contains permanently resident data areas and code 
and completes WSU execution initialization by: 

• Securing the IPB 

• Formatting the pool area 

Execution processing is controlled by #WSXP and the 
execution transients. The operation involves processing 
data and specification areas prepared by the execution 
initiation phase. These areas are located in the main 
storage region occupied by #WSXP and in the WSU execu- 
tion work file (see Figure 1-2). 

If additional work station operators call USERPROC, the 
system scheduler and execution initiator processing are 
bypassed. A work session is started for each associated 
work station (unless end of job is pending) until the maxi- 
mum number of work sessions is active. When the maximum 
number of sessions is active, the system support program 
prevents additional calls to the execution function until at 
least one session sign off. 

Work session processing is interactive. 

As input is received from a work station, processing of the 
associated work session continues until additional input is 
requested or the work session is terminated. If there are 
no suspended gets the session can be restarted and input 
is then accepted from any display station and the cycle 
begins again. Input is processed in the order that the input 
is received. 
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Work station input is received by way of the SSP worl< 
station data management accept input function. Accept 
input suspends WSU processing until work station input is 
available. Processing continues from the point of suspension 
when work station input is again available. When all display 
stations have been released, the accept is rejected (NEP) and 
the job ends (non-NEP), or the job is suspended until the 
procedure is reinvoked. Input from special function keys 
(command function keys, Roll Down, or Roll Up) is 
handled by the appropriate routine. If input is not from a 
special function key, the normal function processor is 
dispatched and continues processing data until the inter- 
action is complete. 



Error messages and informational messages are issued by the 
WSU execution processor as they are needed. The messages 
have the prefix WSU followed by a four digit number 
(WSU-OXXX). An explanation of the WSU messages and 
the action required is given in Displayed Messages Guide. 

The WSU session may be terminated by requesting the menu 
display and specifying EW on the menu, or by setting on 
the EW or EJ indicator in the WSU program. The last 
operator to end a work session ends the WSU program. 



WSU DESIGN 



The processing of each work session may be considered 
serially, without regard to other sessions, when considering 
the WSU interactive processing cycle. Overall work 
session processing logic is defined by WSU. The detailed 
program logic is defined by the account programmer; and 
the actual processing is under operator control. 

For a complete description of WSU's interactive cycle, 
refer to WSU Execution Logic Flow in Program 
Organization. 

At any given time, a work session is in one of three WSU 
defined modes: 

• Enter mode 

• Insert mode 

• Review mode 

In enter mode, records may be logically added to the chain 
of transaction file records associated with the work 
session. In insert mode, records may be logically inserted 
between records in the transaction file chain. In review 
mode, records may be updated in the transaction file chain. 
A detailed description of enter mode, insert mode, and 
review mode is given in the WSU Reference Manual. 

The ability of the operator to control execution processing 
is dependent, along with programmer definition, on WSU 
defined functions. The operator controls execution process- 
ing by using the special function keys. A discussion of how 
the operator may use the special function keys while in 
enter mode, insert mode, or review mode is also given in 
the WSU Reference Manual. 



In the following explanation of WSU design, letters Qj 
through Q refer to Figure 1-2. 
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The design of WSU execution minimizes storage require- 
ments yet at the same time fully utilizes available region 
space and reduces execution time. 

All initialization functions are performed by code that is 
executed once and then overlaid O . 

Except for a small number of services performed by resident 
routines EH , post-initialization functions are performed by 
transient routines. These routines are packaged in load 
modules (#WSX00-#WSX19) H accessed via call/exit 
linkage subroutines, which handle module loading. Since 
transients are not loaded at predetermined locations, entry 
point addresses must be resolved dynamically. Address 
contants for individual routines are in a table at the end 
of the module to aid resolution. 

To reduce the frequency of transient loading, many inter- 
module calls expect no return from the called routine. 
Control does not return (even when expected) if an abort 
situation is encountered in the called routine. This sequence 
of calls cycles at natural breakpoints in a WSU/user inter- 
action: when a session must be interrupted for intervention, 
suspended due to data file record contention, or ended. 

COMMON (see the Data Areas Handbook for a description 
of COMMON ^ and other data areas ^ ) contains, 
among other things, 16 work area bytes, the contents of 
which are saved outside COMMON in the QSA when a 
transient routine is called. QSBs for this purpose are 
assigned in order as needed, and also contain linkage infor- 
mation. The work area bytes are restored from the OSB 
when the transient routine exits, and the called routine 
OSB is released. The QSA contains 10 QSBs, the maximum 
call level for a cycle. The QSA is initialized at interaction 
cycle restart, completion, or end. COMMON also contains 
16 work area bytes that are not restored upon return from 
a called routine. 

A large relocation work area B1 is also used as a work area 
by transient routines. Care must be taken to avoid depend- 
encies on relocation work area integrity across subroutine 
calls. 

Regardless of the number of user formats defined or work 
stations supported, WSU uses only one work station DTF 
and screen data buffer. 

Frequently-accessed routines and data are permanently 
resident in #WSXP B, C, D . All other region space is 
maintained as a pool of other data areas free and 
temporarily-allocated elements la . Other data areas are 
built as permanent elements at the end of the region o . 
These elements are chained together and have variable sizes. 



Each pool element has a permanent priority and (re)assign- 
able attributes. These attributes determine if the element 
may be relocated or deallocated. 

Elements are dynamically relocated to consolidate free 
space and preserve ordering by priority. Elements are 
deallocated only when space is required for a new element 
and no lower priority deallocatable elements are in the pool. 
Only one element of a particular type (the current one) is 
unable to be deallocated at a given time. 

Data file buffers Efil are allocated from the storage pool, 
with different priorities given to the transaction file buffer, 
update-capable master file buffers, and read-only master 
file buffers. 

Nonresident data other than data file records, and transients 
when not pooled, is kept in a work file. At initialization 
time, data blocks (message and C-spec) are transferred to 
the work file then read into the storage pool when needed. 
Since work file CDBs are padded with zeros and MDBs are 
blocked three to a sector, CDB and MDB pool elements 
are reallocated to delete the padding after being read in. 

The work file and pool are also used for data blocks com- 
posed of work station level pointers and indicators from 
COMMON and from the job data block. 

When the operating mode switches from enter to review, a 
copy of the current WDB is saved as an alternate WDB. 
The fields and indicators can then be restored when the 
operating mode goes back to enter. 

Both normal and alternate work station data blocks are 
built in the storage pool and placed in the work file only 
when space is required for some other element. 

The work file is also used for enter and review mode display 
save/restore areas for each work station. 

Transient modules are loaded as nonrelocatable pool 
elements. Priorities of modules and other pool elements 
may be altered to achieve improved performance for a 
given program, MRTMAX, and region size available for 
execution. 

Transaction file records contain control information in 
trailers that chain the data records associated with each 
work session in the proper sequence. The current control 
information is kept in COMMON. This information is used 
to format a trailer for each transaction file record added or 
inserted. 



Work Station Utility (WSU) 1-5 



Licensed Material— Property of IBM 



PHYSICAL CHARACTERISTICS 

WSU generation is done by 35 modules. WSU execution is 
done by the WSU execution initiation processors (#WSXI1 
and #WSXI2), the WSU execution mainline processor 
{#WSXP), and 20 WSU execution transients {#WSXOO 
through #WSX1 9). Refer to the Directory for a list of 
WSU modules and a brief description of each. 



SYSTEM CONFIGURATION 

WSU runs on all models of the System/34. 



1-6 



Licensed Material— Property of I BM 



Method of Operation 

This section contains two H IPO diagrams: 

• Diagram 1-1 describes tlie input, processing, and output 
that occurs during WSU generation. 

• Diagram 1-2 describes the input, processing, and output 
that occurs during WSU execution initialization. 



From SSP 



INPUT 



• WSUOCL 
(see Note) 

• WSU source 
program 

• Data dictionary 
(RPG II F and I 
specifications) 

• WSG message 
member 




PROCESS K' ;:: :g'T::i;i!r ; 'a^:cr'^«waaua:r":ra:n;::rK,a. 



Processes WSU control statement, saves 
generation constants, and prints generator 
listing header and first page number. 

Reads source program and data dictionary, 
syntax checks and prints source, saves job 
definition, and creates vuork file inter- 
mediate text. 

Reads intermediate text to build relation 
tables and updates intermediate text with 
relational data and preassigned encoded 
values. Prints indicator, MIC, and field 
name usage maps, and extended diagnostics, 
and field name usage error lists. Saves pro- 
gram statistics and derived values used to 
determine object program layout and 
compute execution region size requirements. 

Determines and saves object program 
layout. 

Formats work file object program, then 
copies Preformatted object program 
sectors to new member. 

Formats and writes WSDM specifications 
(SFGR source) to new member. 

Computes execution region size require- 
ments. Prints execution region map, 
region space diagnostics, and execution 
work file map. Formats and writes exe- 
cution procedure statements to new 
member, and prints generated OCL. 

Prints diagnostics and termination/comple- 
tion message. 



OUTPUT 

Work file 

• Intermediate text 



® Relational tables 
or Preformatted 
object 



Library member 




« WSU object 
• SSFGR source 



]^>i • Execution OCL 
(see Note) 




Listing 



To SSP 



Note: Chapter 1 of the WSU Reference Manual describes the OCL that is contained in: 

• The procedure that begins WSU generation 

• The procedure (execution OCL) created by WSU generation 
Diagram 1-1 (Part 1 of 6). WSU Generation 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Utility control statements are read and processed. The blocks parameter is used to open and allocate the 
work file. 

The LIBNAME and MEMNAME parameters are used to find the source program. 

The system date, generator processor level, screen size, and user (source program) library name are saved in 
the generator common data area as generation constants. 

The printer is allocated and opened and a heading and page number are printed to start the listing. 

Source program and data dictionary specifications are read and processed sequentially. 

Comments are printed and ignored. 

Unrecognized specifications (invalid form type, J after first specification, or T or M after first S, D, or C 
specification) are printed with an error note number and ignored. 

Recognized specifications are printed with statement numbers (except for F, out-of-sequence I, D continua- 
tion, C continuation, or C PRTY specifications), then syntax checked and converted to intermediate text 
records and/or generator common data. 

Syntax checking involves testing for valid specification sequence, fields required blank/nonblank, and field 
content (for example data type and ranges), as well as for conflicts with other enteries on the same specifica- 
tion or information saved about previously processed source. 

Library and member entries on T and M specifications are used to locate the data dictionary source. 

All specifications in the indicated library member are ignored except for properly sequenced F and record- 
type I specifications with matching filenames and associated AND/OR and field type I specifications. 

These data dictionary specifications are read, printed, and processed following the corresponding T or M 
specification. Intermediate text records are formatted and information is saved in the common data area 
as syntax checking progresses. 

This information includes the job definition (J specification entries and T and M specification file names) 
and any data required to implement syntax checks involving previously processed source. Defaults are 
provided where appropriate to allow generation, or at least syntax checking, to complete. 

Intermediate text records reflecting errors so severe that extended relational checking for the record fields 
cannot be done are flagged as dropped. 

S intermediate text records are formed to provide process segments for special processing levels not 
represented in the source program. 

C tag records are formed to provide linkages between process segments and associated command groups. 

Any syntax errors encountered are printed in a list of note numbers following the specification to which 
they apply. 

The intermediate text records are placed in the generator work file. If source program end-of-file is 
encountered when unexpected (program contains comments only, no T, M, S, D or C after first specifica- 
tion; no.S, D, or C after last T or M specification), steps 3, 4, 5, and 6 are bypassed and the generation 
abnormally ends. 

Multiple passes are made through the intermediate text records for the purpose of collecting relational 
information required to assign internal values to defined and/or referenced program elements, complete 
program validation, and make appropriate defaults. 

Intermediate text records reflecting errors so severe that additional relational checking for the record 
fields cannot be done are flagged as dropped. 



#WSGO 

#WSG1 

#WSG2 

#WSG3A 

#WSG3B 

#WSG4A 

#WSG4B 

#WSG4C 

#WSG4D 
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DESCRIPTION 



MODULE/ 
ROUTINE 



In addition, statistics about the WSU source are collected and object program and execution region size and 
work file space requirements for individual control blocks/areas (file names, record types) are computed. 

First pass: File names and record identifying indicators are collected in in-core tables and assigned relative 
numbers according to the order in which they are encountered in the source program. 

Next 2 passes: Generator common data area fields and T, S, and C records referencing these names or 
indicators are updated to contain the assigned relative numbers, which can be used to develop interblock 
pointers in the generated object. 

Format identifiers are converted to relative processing levels. Information about C record references to file 
name is saved in the file table and used in the next pass to update T and M records to reflect file usage. 

During these passes, additional syntax checking is done to detect relational errors involving the usage of file 
names and record identifying indicators, the definition of screen input/output fields, and other miscellaneous 
syntax errors. 

An extended diagnostics list of error note numbers cross-referenced to statement numbers is printed if any 
of these errors is encountered, and the appropriate defaults are made. 

(Format identifiers, format names) 

First pass: Format names are collected in an in-main storage table and assigned relative numbers according 
to the order in which they are entered in the source program. 

Next 2 passes: C records referencing these names are updated to contain the assigned relative numbers, 
which can be used to develop interblock pointers in the generated object. During these passes, additional 
syntax checking is performed to detect relational errors involving the usage of format identifiers and format 
names, as well as miscellaneous processing sequence syntax errors. 

An extended diagnostics list or error note numbers cross-referenced to statement numbers is printed under 
translatable headings if any of these errors is encountered, and the appropriate defaults are made. 

(Indicators) 

Next pass: Indicator references in all intermediate text records are replaced with mask/displacement 
equivalents, which act as locators in the generated object. 

The table of indicators used in the conversion is also used to save information about intermediate text 
record references to individual indicators. 

Upon completion of this pass, indicator usage maps are printed. Indicators set and tested are packed into 
lines in indicator table order and printed. Indicators set but not tested are packed into lines in indicator 
table order and printed. Indicators tested but not set are packed into lines in indicator order and printed. 

(Message texts and message identification codes) 

Next 2 passes: Relative numbers are assigned to literal messages in the order in which they are encountered 
in C records. 

Once the total number of literal messages is known, another intermediate text updating pass is made to 
assign the next available relative message numbers to MIC messages in the order in which they are first 
referenced in the program. 

The assigned relative numbers are used to develop interblock pointers in the generated object. 

A table of binary MIC equivalents is built to handle duplicate references, which must be assigned the same 
relative message number. The MIC table is placed in the workfile after the intermediate text if it cannot 
be accommodated in main storage. 



#WSG5 



#WSG6 



#WSGAI 



#WSGAM 



Diagram 1-1 (Part 3 of 6). WSU Generation 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Multiple MIC table passes: 

The table must be scanned each time a MIC is encountered. 

Additional MIC table pass: 

Upon completion of this pass, a MIC usage map is printed. Referenced codes are packed in lines in MIC 
table order and printed. 

(Data field and program label names) 

Next pass: The next pass through the intermediate text results in the building of a field name table from 
field data blocks embedded in the intermediate text. Each data field name or label used in the program is 
represented by an entry in the table. The first definition of a field name overrides any subsequently 
encountered definitions and is saved in the appropriate table entry. 

The intermediate text field data blocks are updated with the appropriate field name table indices. 

The field name table is placed in the work file after the intermediate text if it cannot fit in storage. 

Multiple field name table passes: 

The table must be scanned each time a field data block is encountered. 

Additional field name table pass: 

Relative field numbers and JDB or WDB displacements are assigned in table order, ignoring labels ad 
unreferenced or undefined field names, and saved in the corresponding table entries. The assigned relative 
numbers are used to develop interblock pointers in the generated object. 

Information concerning the presence or absence of field name definition/reference errors is saved in the 
common data area to trigger subsequent listing sections. 

Three additional field name table passes: 

Field name usage maps are printed, each under translatable headings, for work session level data fields, job 
level data fields, and program labels. 

Each name is cross-referenced to the statement number of the specification in which it was defined and 
listed with its defined length, decimal positions, and assigned data block location (data fields), or with its 
defined type (program labels). 

Next pass: Commands are built from C records and blocking algorithms are applied to anticipate the- 
location of program labels. These assignments are saved in the field name table. 

The relative numbers and offsets are used to develop interblock and intrablock pointers in the generated 
object. 

Next pass: Concurrent multiple direct access to field name table . . . 

Field name definitions and assignments are copied from the corresponding field name table entries to the 
field data blocks imbedded in the intermediate text. 

(MIC format field lengths) 

Next 2 passes: Tables are built from S and D records for the purpose of computing screen field lengths 
for MIC message texts. 

The computed field lengths, combined with specified screen locations for MIC message texts, are used to 
assign MIC message text lengths. The lengths are checked for WSDM compatibility and defaulted if necessary. 



#WSGBF 
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#WSGAL 
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DESCRIPTION 



MODULE/ 
ROUTINE 



The corresponding D records are updated with the assigned lengths in a separate pass. 

Any errors encountered are listed as note nunnbers cross-referenced to the statement numbers of the 
specifications to which they apply. 

(Operation codes) 

Next pass: Any defined but unreferenced field names are listed, cross-referenced to the statement numbers 
of the specifications in which they were defined. 

Next pass: Any multiply-defined field names are listed, cross-referenced to the statement numbers of the 
specifications in which they were defined or referenced. 

Next pass: Any referenced but undefined field names are listed, cross-referenced to the statement numbers 
of the specifications in which they were referenced. 

Next pass: Syntax checks and final command code assignments dependent upon the resolution of embedded 
field data blocks are performed and appropriate defaults made. 

Any errors encountered are listed as note numbers, cross-referenced to the statement numbers of the 
specifications to which they apply. 

If any terminal diagnostic note numbers have been listed, steps 4 through 7 are bypassed. 

U Program statistics and derived values saved in the common data area and encoded intermediate text records 
are used to anticipate the object program layout. 

Individual specification block area displacements are saved for use in converting relative numbers to block 
locators in generated code. Total specification and data area size requirements are saved for the object 
control header and used to assign relative sector addresses for the object areas. 

The specification and data area relative sector addresses are also saved for the control header. 

fSM Multiple passes are made through the intermediate text records to format specification and data areas and 
place them in the work file after the intermediate text. 

Also referenced for formatting purposes are common data area fields initialized in preceding steps and the 
tables of specification block displacements. 

The formatting buffer used occupies the space between the end of the executing module and the start of the 
intermediate text buffer used. Formatting is done in place at the end of the buffered object stream, except 
for individual commands, which must be prebuilt in a separate formatting buffer before being blocked at the 
stream end. Additional statistics are collected during these formatting passes. The control header is built 
last from generation contents, the job definition, statistics and derived values, and object layout data. Once 
built, it is placed in the first relative work file object sector. WSDIVl module $MAPGS is loaded after the 
executing WSU processor and all space to the end of the region made available for buffering. Preformatted 
object program sectors are retrieved from the work file to the assigned buffer and put (via a call to $MAPGS 
each time the buffer is filled or after all object sectors have been buffered) into a new object member in the 
specified or defaulted library. 

\iM WSDM module SMAPUR is loaded after the executing WSU processor and all space to the start of intermediate 
text buffers made available for $SFGR source buffering. 

$SFGR source specifications are formatted from intermediate text and nontranslatable character constants 
and put (via a call to $MAPUR for each statement) into a new source member in the specified or defaulted 
library. 
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#WSGFO 



#WSGFS 

#WSGDS 

#WSGCS 

#WSGMS 

#WSGPS 

#WSGSS 

#WSGMD 

#WSGCD 
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Diagram 1-1 (Part 5 of 6). WSU Generation 



Work Station Utility (WSU) 1-1 1 



Licensed Material— Property of IBM 



DESCRIPTION 



MODULE/ 
ROUTINE 



Data saved for the object control header is used to compute the minimum and maximum execution. region 
and worl< file space requirements for the specified maximum number of work stations to be supported. 

The derived values are used to format and print summaries of execution region size and work file space 
minimum and maximum requirements, showing in each case, the increment required for each work station, 
the number of work stations assumed, and the basic and total requirements (bytes or sectors), as well as 
rounded space requirements (2K or blocks). 

A diagnostic is printed if the specified maximum region size is under the computed minimum. 

A diagnostic is printed if the computed maximum exceeds 64K. 

SMAPUR is loaded after the executing WSU processor and all space to the end of the region made available 
for buffering. Execution procedure statements are formatted from control header or derived data and non- 
translatable character constants and put (via a call to $MAPUR for each statement) into a new procedure 
member in the specified or defaulted library. 

Each OCL statement is printed as it is generated. 

Listing of diagnostic texts is attempted even if the WSU generation is aborting, provided any error note 
number was previously printed, and provided any abort originated before this step. A heading and sub- 
heading are printed for each page required, the first pair being printed on a new page if the old page was 
filled over 5 lines from the bottom. (The same scheme applies to all listing sections with multiple headers.) 

Error table bits are checked in numeric sequence (from to 51 1 ). For each bit on, the corresponding 
WSU message member entry is used to format and print a list line containing the error note number, the 
severity of the error, and the diagnostic text. 

The appropriate translatable completion or abort message is printed. If WSU generation is aborting, the 
MIC selected by the aborting processor or subroutine is routed to console and logged. If WSU genera- 
tion is completing with one or more terminal errors, the completion with terminal error(s) MIC is routed 
to the console and logged. 

Any library members created before abnormal termination are expected to be deleted automatically by the 
system control program. Otherwise, control is returned normally to the SCR. 



#WSGBP 
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From: 



INPUT 




Initiator IVIainline 
(#CIML) 

IP PROCESS 




Execution 
Initialization 
#WSXI1 or 
#WSXI2 



IPB_ 

Permanent 
Elements 



• Message member 

(#WS#X) 

• Format member 
(#WS@X) 

O User object 

member (USEROBJ) 

o User format 
member 

® User message 
member 



Finds input members. 

Reads user defined specifications. 

Formats permanent elements. 

Opens screen format members. 

Loads and passes control to WSU initializa- 
tion program-phase 2. 

Allocates and opens transaction file and 
master files. 

! Builds WORKFILE. 

Loads and passes control to WSU execution 
process mainline. 



OUTPUT Bi 



• Initialization 
parameter block 

• Permanent 
elements 

• WORKFILE 



<=> 




To: WSU Execution Process 
Mainline (#WSXP) 



Diagram 1-2 (Part 1 of 3). WSU Execution Initialization (#/VSXn and #/VSXI2) 
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DESCRIPTION 


MODULE/ 
ROUTINE 


D* 


Finds WSU message member. 

If message member not found, issue abort via SYSLOG. 


#MASFN 


#WSXI1 




Overlay prog-1 message member in job control block (JCB). 

Reads utility control statements. 

Finds user object member (USEROBJ). 

Puts USEROBJ address in lOS table. 

Finds user message member. 

Puts format and relative address of user message member in JCB. 




#CLSS 


#MASFN 


#WSXI1 


#MASFN 


#WSXI1 


B« 


Uses information retrieval transient to get region, NEP attribute and MRTMAX value. 
Reads USEROBJ control sector from disk. 
Calculates required region size. 




Disk lOS 


#WSXI1 


B* 


Sets up and loads screen specification area (SSA). 






Sets up and loads file specification area (FSA). 






Loads data specification area (DSA). 






Loads C-spec specification area (CSA). 






Sets up and loads process specification area (PSA). 






Calculates WSU message specification area (MSA) size and set to X'OO'. 






Loads message specification area (MSA). 






Creates job data block (JOB) and WS data block (WDB) work areas. 






Creates work station control area (WCA). 

If required, creates master track index area and format index area. 




#WSXI1 


□ • 


If no user format library name specified, inserts WSU format library name in DTP. 

Allocates user/WSU format member. 

Opens format member. 

Builds screen data block (SDB). 

Finds #WSXI2. 

Load and pass control to #WSXI2. 




#CAML 


#DMOP 


#WSXI1 


#MASFN 


#WSXI1 



Diagram 1-2 (Part 2 of 3). WSU Execution Initialization (#/VSXI1 and #/VSXI2) 



1-14 



Licensed Material— Property Of IBM 



DESCRIPTION 


MODULE/ 
ROUTINE 


□ . 

9 

9 

o. 

9 
9 


Moves lOB build area address into the DTF in the file specification block (FSB). 

Allocates transaction or master file. 

For a transaction file, does deallocate and special allocate functions. 

Opens file. 

Updates FSB and copies lOBs. 

Calculates WORKFILE size. 

Allocates WORKFILE as scratch file. 

Opens WORKFILE (dummy open). 

Retrieves USEROBJ literal messages and places in WORKFILE. 

Retrieves messages from user message member and places in WORKFILE. 

Retrieves messages from WSU execution message member and places in WORKFILE. 

Processes C-spec: 

- Reads from USEROBJ. 

- Updates CSA, CSB, DSA, and CSP. 

- Writes C-spec to WOR KF 1 LE. 

Initializes work session control block (WCB) normal and alternate WDB pointers and enter and review 
screen save area pointer. 

Initializes WDB key entries with keyfield length-1 from DTFs for update-capable fields. 

Positions IPB ahead of permanent elements. 

Finds #WSXP. 

Loads and passes control to ^#WSXP startup routine. 


#WSXI2 


#CAML 


#WSXI2 


#DMDP 


#WSXI2 


#CAS1 


#DMOP 


Disk lOS 


#MGRET 


#WSXI2 


Disk 108 


#WSXI2 


Disk lOS 


#WSXI2 


#MASFN 


#WSXI2 



Diagram 1-2 ( Part 3 of 3). WSU Execution Initialization {#WSXI1 and #/VSXI2) 
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Program Organization 

This section contains: 

• Generation logic flow figure 

• Execution logic flow figure 

o Execution modules and routines descriptions 

• Execution routines cross reference list 

• Execution routines external calls list 
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WSU Generation Logic Flow 

Figure 1-3 shows the generation logic flow. 



From SSP 



3P 



3B —I 



4A 

IT 



-^•\ 



4B 



4C 



4D 



Common 






7 


Post-Syntax 






T] 


Initialization 






Initialization 

File, Record Type, 
and Processing 
Level Assignment 

Format Assignment 

Indicator 
Assignment 

Message 
Assignment 

Field Name Table 
Build 

Data Field 
Assignment 

Program Label 
Assignment 

Field Data Block 
Resolution 

Message Length 
Assignment 

Operation Code 
Assignment 

Post-Assign 
Initialization 

Object Program 
Formatting 




ro| 
















J Specification 
Syntax Checl<ing 




5 




DS 
















T, M, F, and 1 
Syntax Checking 




6 




OS 














S Specification 
Syntax Checking 




Al 




MS 
















D Specification 
Syntax Checking 




AM 




PS 
















Source 




BF 




SS 


EOF 
















C Specification 
Syntax Checking 


AF 




MD 
















AL 




CD 














To 3A if next 
specification is a 


RF 




CH 


C specification. 












To 4A if more 
C specifications 


ML 




OB 


for the display or 
if EOF is reached. 














8 




9 
















CM 




EP 
















FO 




MT 




















\ 





File Specification 
Area Build 



Data Specification 
Area Build 

Command 
Specification 
Area Build 

Message 
Specification 
Area Build 

Process 
Specification 
Area Build 

Screen 

Specification 
Area Build 

Message Data 
Area Build 



Command Data 
Area Build 



Control Header 
Build 



Object Program 
Member Generate 



SFGR Source 
Member Generate 



Execution 
Procedure 
Member Generate 

Diagnostic Text 
List 



Note: All phase names begin with #WSG. For example, represents #WSGO. 



To SSP 



Figure 1-3. WSU Generation Module Flow 



Work Station Utility (WSU) 1-17 



Licensed Material— Property of IBM 



WSU EXECUTION LOGIC FLOW 

Work session processing occurs interactively under control 
of the cycle driver routine (DRIVER in #WSX10). Part 1 
of Figure 1-4 shows the logic flow between work stations 
using a WSU program. Parts 2 through 9 of this figure show 
the logic flow for an individual work station. 

Note: Explanations of routines that are specified in 
Figure 1-4 can be found following the figure (Execution 
Modules and Routines). 
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SEE NOTE 3 








»»»»A2»»»»»»»»» 










• * 










» START * 


• INTCHP ♦ 








* * 


* * 








*«*«**•***•*«»* 


«******«*«*«««« 






















" SEE NOTE 1 WDBPUT A 








»»»«»B2*»*»»**»«* 


*««**B3********** 


SEE MOTE 


4 




* * 


» SAVE WORK * 


t***a'i********* 






* * 


* STATION LEVEL * 


* * 






» ACCEPT INPUT • 


* FIELDS AND * 


• INTEND • 






* * 


• INDICATORS • 










* * 








**«***•**•*•**»«* 












INSESS 


V 


V 
• *• 












**»»«Ci*»«<i****** 


C2* '». 


C3 *. 








* • 


• * *• 










* « 


YES .» NEW •. 


NO .• CAN A *. 








• GET NEW WCD *<- 


». SESSION .* 


». SESSION BE .* 










*• •* 


'.CONTINUED.* 




















***«••***«»»***** 


















NO 


» YES 
























V 


••«*»Q2********** 










***«01********* 


» • 












* * 










* START SESSION » 


• FIND WCB * 










• * 


« * 










**•*♦*•*♦•***** 


* * 










START ON 














PART 2 














WDBGET 


' 










««***E2********** 










* SET WORK » 










* STATION LEVEL * 










» FIELDS AND » 










* INDICATORS * 












SEE NOTE 


2 








****F2********* 










* « 










» RETURN * 




















»*«**««***»•*** 









Notes: 

1. Work station input is received via the SSP worl< station data management accept input function. Accept input 
suspends WSU processing (produces a wait state) until worl< station input is available. 

2. Return to the point in the cycle at which the wait occurred. 

3. INTCMP is branched to each time a wait occurs. 

4. INTEND is branched to each time a work session ends. 

Figure 1-4 (Part 1 of 9). Work Station Logic Flow 
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* 

* START 



**««*A2 ********** 



*. ACTIVE 



TXRET, TXPUT, 



***************** 



*INITIALIZE WORK* 

* STATION LEVEL * 

* FIELDS * 

* * 
***************** 



*****C2** ******** 

* * 

* GET MORK * 
*SESS10N CONTROL* 

* RECORD * 

***************** 



*****Ql********** 



RECORD 
************* 



*****D2** ******** 
» * 

* * 
-♦ SELECT IJ * 

* • 

* * 
***************** 



*****E1********** 

* * 

* * 

* SELECT IW • 

* * 

* * 
***************** 

06-Ll**** 

06-K?*0O3* < 

U6-C3* G5 *-> 

06-C3* • _ 

06-E3**** V 

0t-H3 .*. 
06-K3 Fl *. 
06-G'. .* PRE- *. 
06-K* .*PROCESSING *. NO 

06-H3*. OR NO .* 

08-K3 *. DISPLAY .* 
09-C5 *. .* 
09-G2 *. .* 
09-B* * YES 



09-D5 



*** 
• 007* 



*. PROCESSING 



.* ENTER *. YES 


*. MODE .*— ^ 




* • * 


*. .* V 


■ NO *«♦*« 




*006« 




• Al » 








* 


MSr.HSU y 


,*J1*»****** 

»* SHOW A , 


* FUNCTION t 


* COMPLETE • 


« "E 


>SAGE * 



OT-J* 
07-J5 
08-F2 



MSGHSU V 

**«P2*******«** 
SHOW THE 



***************** 



WAIT * 

* 

**************** 



->* Gl * 

« * 
**** 



Note: Control is given to INTCMP (on Part 1 of this 
figure) to determine if processing can occur for another 
session. 

Figure 1-4 (Part 2 of 9). Work Station Logic Flow 
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0*-K3 

0*-A5 
05-F2 

***** 
*002* 
* Gl» 



**«**Bl********tt 



********* 



***** 
*009* 
• C3» 



**** 

« * 

->• EA • 

* * 
• **• 



»*t5»*****»»» 

SHOW THE * 

DISPLAY (NO < 

HAITI * 



**»**F2********»* 

* * 
•SET RP ON, SET * 

>» SPECIFIED *- 

* INDICATORS ON * 

* * 
***************** 



Gl *. 


*****G2********** 


* *• 


» SET SPECIFIED * 
♦INDICATORS ON. • 


IMSG *. YES 


OPERATION .» 


>*SET TO DISPLAY * 


,* 


• IMSG * 



**************** 



**** 

* * 
» 81 * 

* « 
*«*« 



*****Q5«****«*** 



***************< 



***** 
*002* 
• F2* 



*****K1********* 

• EXECUTE THE 
» CALCULATION, 
♦SET INDICATORS 

* ACCORDINGLY 
* 
**«******«**««** 



**** 

* « 

* Bl * 



Figure 1-4 (Part 3 of 9). Work Station Logic Flow 
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.♦RECORD *. 



SESSION .* 



MSGWSU 

/ "slilVSN ' 

>* SUSPENDED" 

% MESSAGE (NO. 

♦ . INVITE! ,' 

*♦*♦♦♦♦♦♦♦«*' 



» WAIT UNTIL * 
>» RECORD IS •- 

* AVAILABLE * 

* » 
***************** 



INDICATE THAT * 

GET IS NcXT * 

OPERATION * 

* 

**************** 



T OR M .* 



***************** 



***** 
»003* 
• Bl* 



• ****[)2********** 

» INDICATE NO » 
» NOT-FOUND » 
» INDICATOR • 

* * 
***************** 



*****03********** 



* INDICATOR * 

* * 
***************** 



*****E3********** 

* SET OFF ALL * 
» RECORD TYPE » 
*INDICATORS FOR * 

* THE FILE * 

* * 
***************** 



*****F3********** 

* * 

* * 
*GET THE RECORD * 

* * 

* * 
***************** 



*****J3******** 



***************** 



.* NOT *. NO 

FOUND .* 

*. INDICATOR.* 



*****j 5*** ******* 



************* 



***************** 



************** 



V SEE NOTE 2 

****K5********* 

* END OF * 

« WORK SESSION t 

*************** 



***** 
*003* 
* Bl* 



Notes: 

1. Control is given to INTCIVIP (on Part 1 of this figure) 
to determine if processing can occur for another 
session. 

2. Processing begins at INTEND on Part 1 of this figure. 

Figure 1-4 (Part 4 of 9). Work Station Logic Flow 
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TRANSACTION .* 



nti 



.• LAST ». 
.•OPERATION A*. 
. SUCCESSFUL . 
♦. CET .» 



**»**F1********* 



*•*•**••****•«** 



SEE NOTE 

J END OF J 

• WnfiK SESSION * 



*****D2********* 
* 

• PREPARE TO 
•UPDATE CURRENT 

* REVIEM RECORD 
• 
••«•••««•«««••«« 



•••••E2*^^**^^*^ 



•*•*•*•••••*•*•* 



•••*F2*****^*^* 
PUT THE RECORD 

*•*•••*•••••*•* 



*•••« 

• 003» 

• Bl» 



.* BLANK •. 

.* RECORD IN • 

FILE 

*. CHAIN .4 



•••••E3*^****^^^^ 

•INITIALIZE NEXT^ 
•GET POINTERS TO* 

• END OF FILE » 

• * 
**••••••****•••** 



•••••F3«*****^*** 

• * 
•PREPARE TO ADD • 
•A RECORD TO END* 

• OF CHAIN • 

• • 
*••••*******«*••* 



t***Qi**t ****** 

SET *RLNO 
*••*••******•** 



*****^tt********** 



•RECORD IN FILE * 

* * 

«•«••«•«••*•***•* 



•••••D5 •••*••**• 



V SEE NOTE 
****^^********* 

I END OF I 

* WORK SESSION » 
•*•*•••*••*«*** 



Note: Processing begins at INTEND on Part 1 of this figure. 
Figure 1-4 (Part 5 of 9). Work Station Logic Flow 
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02-Kl 
07-J3 
09-El 
***** 
*002* 
* HI * 



CI *. 

* * 

EJ ON, 

*. •* 
*• ■* 
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RECORD 
***************** 
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* * 
->* SET ON EW * 

* * 

* * 
***************** 
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**************** 
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***************** 
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************* 
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***************** 
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************** 
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* UPDATE WORK » 
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***************** 



***C3 ********** 
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**************** 
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* * 
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***************** 
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***************** 
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***************** 
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**************** 
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***************** 
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***************** 



*****G3 ********** 
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***************** 
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*****G5********** 

* * 

* SET ON ES * 

* * 

* * 
***************** 



*»***H5********** 

* * 

* * 

* SELECT ES * 

* * 

* * 
***************** 



>***K4********* 



SEQUENCE 

*************** 



Note: Processing begins at INTEND on Part 1 of this figure. 
Figure 1-4 (Part 6 of 9). Work Station Logic Flow 
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08-C2 
»00B* 



» SHOM "INVALID* 
* FUNCTION" « 
\ MESSAGE • 

•«»♦«»♦»♦»♦*• 



MESSAGE 



***»«***«*• 



.♦SPECIAL*. 

.* FUNCTION *. 

. KEY OR MENU . 

*. RESPONSE -* 

*. .* 

*. •* 

• YES 



**«*»C4*******«* 

* 
* 
* WAIT 

* 
* 
**************** 



09-05**** 
09-F5*002» I 
» H2 *-> 



* 02 •---I 

"^'■''^*f**02*:(*.***.. 

»* SHOW • 

* "FUNCTION * 

>* REQUIRED" *- 

•^ MESSAGE * 

************** 



>* WAIT 

* 
* 
**************** 



*«** 
* Dl * 



04 



♦ . 



.*SPECIAL». 

.* FUNCTION « 

. KEY OR MENU 

*. RESPONSE •• 

*. .* 

*. .* 

* YES 



***** 
*002* 
* Gl* 



.* REVIEW 

►. FUNCTION 

*. REOUEST 



***** 

• 008* 

* Bl* 



.* MENU 
->». CURRENTLY 

♦.DISPLAYED.* 



•G3******** 
SHOW THE MENU* 



DISPLAYED.* I *, * 

"». .*■ I *****»»»»*»«»* 
♦ YES 

*•"** 

->» Bl * I 

— — * * I 





SEE 


NOTE 


****»G4***« 


**** 


*♦ 


* WAIT 




♦ 


*********** 


***» 


♦ • 



* El 






MENU ^ ***» 






^ 










^ 










H2 *. 








H3 ♦. 










H* ♦. 


















.* * 




















.* SELECT 


♦ 


NO 




.* EW 


». 


NO 




,« 


RELATIVE ♦ 


NO 








->*• BY ID 

*. 








->♦. REQUEST 
♦ , 




>* 












♦ 






* 




'» 


. ZERO .♦ 




V 






♦ . .* 


















♦ . .♦ 










*. .* 








♦ • • ♦ 










♦ . • * 




♦ 008^ 






* YES 










YES 










♦ YES 




♦ Bl^ 

♦ ♦ 






V 




















r 


















' 
















.♦. 




J2 ♦. 








♦♦♦♦♦J3^^^^^^^^^ 








J4 ♦. 






J5 ♦. 






















♦ ♦. 






♦ * 




.♦PROCESSING 


* 


NO 












* 


ENTER ♦ 


NO 


.* 


REVIEW/ 


*. NO 


*. LEVEL 






-^ 


♦ SET ON EM 






♦ 




MODE 




— - — >♦. 


INSERT IN 


,* ■ 


*. ACTIVE 






1 










* 


,* 






PROCESS 


♦ 1 




















♦ . .♦ 








1 


♦ . .* 






i 


**************** 














*. .♦ 




* YES 




♦ ♦♦♦♦ 


1 










♦ YES 






♦ YES 


♦ **♦ 






♦ 


309^ 




























Bl* 




















♦ D21 


V 






• ♦ 


V 










V 






V 












***** 
















***** 




* ♦ 








♦ 005* 










♦ 002* 






*002» 




♦ Bl ♦ 








* Al ♦ 










♦ F2^ 






* F2* 












* « 




















*♦♦♦ 








* 










* 






* 





Note: Control is given to INTCMP (on Part 1 of this figure) to determine if processing can occur 
for another session. 

Figure 1-4 (Part 7 of 9). Work Station Logic Flow 
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OT-H* 

***** 
*007* 



B2 *. 






B3 *. 






*****B4********** 


B5 


*, 




*. 






* * 






♦ * 


.* *. 




REVIEW *. YES 




* 


CURRENT 


* 


YES 


* SET ON IN AND * 


.* VALID * 


NO 


MODE .* 


>* 




REVIEW 






>* SET *RLNO * 


>*. DISPLAY FOR 


7 






* 


RECORD 






* * 


*.RCD TYPE .* 










*• .* 






* * 


♦ . .* 




'*. •♦' 






*• •* 






***************** 




V 


* NO 






* NO 








* YES 


***** 


1 **** 






1 












*007* 


»007* 






1 












* Bl* 


->• 81 * 






V 












* * 


* * 






***** 












« 


**** 






*007» 














.*. 






* Bl* 








r 




C2 •• 






* * 








*****C5 ********** 


*, 














* SELECT FIRST 


* 


ENTER *. YES 














* VALID DISPLAY 


* 


MODE .* 














* FOR CURRENT 


* 


.* 


V 












• RECORD TYPE 


* 



**************** 



WDBPUT 

*****G1 ********** 
» SAVE WORK * 

* STATION LEVEL * 

* FIELDS AND * 

* INDICATORS • 

* * 
***************** 



CLRJDB 

*****H1 ********** 
♦INITIALIZE WORK* 
» STATION LEVEL * 

* FIELDS AND *- 

* INDICATORS * 

* * 
***************** 



*****[)2********** 
* * 

»SET OFF RV AND * 



***************** 



WDEGET 

*****E2********** 

* RESTORE WORK * 

* STATION LEVEL • 

* FIELD AND * 

* INDICATORS ♦ 

***************** 



****F2********< 

RESELECT 

INTERRUPTED 

DISPLAY 

**************4 



***************** 



*****H2********** 



*********** 



*****K3********** 

* SELECT FIRST * 

* VALID DISPLAY * 
*FOR THIS RECORD*< 

* TYPE * 

* * 
***************** 



J4 *. *****J5********«* 

.*■ RECORD ■*. YES * * 

. IN CURRENT .* >* SET ON CG • 

*. GROUP .* * * 

*. _* * * 

«, .* ***************** 

* NO I 

I < 

V 

-*• 

K4 *. 

.* VALID *. 

.♦DISPLAY FOR*. NO 

. THIS RCO .♦ ■ 

♦. TYPE .* V 

*. .* ***** 

*, .* ♦OOT* 

* * Bl* 

* * 



Figure 1-4 (Part 8 of 9). Work Station Logic Flow 
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07-J2 
***** 
*007* 
* £2* 



*****B4********** 

* SELECT NEXT * 

* VALID DISPLAY • 
>* FOR CURRENT *- 

* RECORD TYPE » 
« * 
***************** 



***** 
*002» 
* Fl» 



* >*. 



CTABLE *. YES 

. FOR CURRENT .* 

*.RCD TYPE .* 



**** 

Msnwsu 

^**02*********« 
,*MESSAGE 0703: • 

* INPUT FOR * 
>* CURRENT *■ 

* DISPLAY IS * 
** REQ'D .* 



****03***** 
WAIT 



PRESSED . 
*. .* 
*. .* 
• YES 



.*DISPLAY*. 
.*EXIST WITH ». 
. SELECTED 



***** 
*007* 
* 61* 



*. BYPASSED .♦ 



*****G2********** 



**************** 



MSr.WSU 

f *P3******** 

• MSG 072 3: • 

,* INPUT FOR * 

->» INTERVENING « 

* DISPLAY IS * 

•». REO'D »* 

************* 



WAIT 
*************** 



.*SPECIAL*. 

.*FUNCTIGN OR*. 

MENU 

•.RESPONSE .* 



***** 
*002* 
• Gl* 



***** 
•007* 
• El» 



.• AE ON •. 
.•AND CMD KEY*. 
->*. 13 

•• PRESSED .• 



* YES **•** 

I *007» 

• El* 



Note: Control is given to INTCMP (on Part 1 of this figure) to determine if processing can occur for another session. 
Figure 1-4 (Part 9 of 9). Work Station Logic Flow 
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Execution 
Initialization 
Phase 1 
(#WSXI1) 



Execution 
Initialization 
Phase 2 
(#WSXI2) 



INTCMP 
INTRST 
INTEND 



Figure 1-5 (Part 1 of 7).WSU Execution Hierarchy 
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Figure 1-5 (Part 3 of 7). WSU Execution Hierarchy 



1-30 



Licensed Material-Property of IBM 



o 



^ 



MSGWSU WDBGET 



TRWSIO WSABC 



6 



FDBGET GET 



^ 



REALOC ALOCAT WFIO 




O 



8 ) NRMLFN 



MSGWSU PUTS 



o e e 



CSPEC CDBGET SELECT 



^ 



INTCMP MSGWSU 



9 ) PUTS 



& 



IWSESS TRWSIO WSABC 



O 

■o 

CD 
O 

-h 

00 



6 






u 




v> 






CO 


s 









i-O 



-G 



H 2 



^ 

(^ 



Li^T) 



o 
















u. 




o 


a 




O 


cr 






K 






< 

UJ 

CC 






UJ 












(■) 






S 


m 
Q 










s 

< 







-e 



i-0 



Figure 1-5 (Part 6 of 7). WSU Execution Hierarchy 
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4^ C 



^ 



^ 



ST 



^ 



ALOCAT REALOC DECBIN ALOCAT REALOC 
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INTCMP MSGWSU 



00 
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EXECUTION MODULES AND ROUTINES 

This section explains the functions of each of the WSU 
execution modules. The modules are described in phase 
order (#WSXI1, #WSXI2, #WSXP, and #WSXOO through 
#WSX19) and by routine (alphabetically) within the phase. 

Routines and services called are listed to the left. Paren- 
theses Indicate that return from the called routine or service 
is expected unless an abnormal situation is encountered. 
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#WSXI1 (WSU Initialization Phase, Part 1) 



Routines and 
Services Called 

($FIND) 

($INFO) 

($LOG) 

(MSG) 

(SYSIN) 

(SXFER) 

($FIND) 

($XFER) 

($FIND) 

($INFO) 

(GETP) 

($INFO) 

($INFO) 

(FDIO) 

(FDIO) 



($INFO) 



($XFER) 
(SALOC) 
($OPEN) 
($CLOS) 



($FIND) 

($LOAD) 

#WSXI2 



Description 

Finds WSU message member. 

Updates job control box (JCB) with format-1 address and SS address. 

If WSU message member not found, aborts job. 

Retrieves OCL translation template message. 

Using hardwired translation table, reads and interprets WSX control statements. 

Saves trace parameter. 

If OBJLIB— parameter specified, finds user object program library (RFINDLIB). 

Finds and saves object program sector address. 

If MSGLIB— parameter specified, finds user message library (RFINDLIB). 

Finds user message member. 

If not in library with WSU message member, updates JCB with format-1 address and SS address. 

Extends partition. 

Retrieves and saves NEP attribute. 

Gets MRTM AX value. 

Reads control header from object program and calculates region size requirements. 

Starting at region end, reads preinitialized SSA, FSA, DSA, CSA, PSA, and MSA specification blocks 

from object program into high storage and saves area addresses. 

Clears MSA space allowed for WSU messages, and saves address of first WSU MSB for #WSXP. 

Assigns JDB address. 

Saves release level from control header. 

Blanks JDB, then processes DSA to initialize arithmetic JDB fields to character zeros and change DSA 

DB offsets to addresses. 

Saves World Trade editing attribute from control header. 

Retrieves system date and saves converted values in reserved date name JDB fields. 

Changes SSB (screen output/input fields), PSB (display screen and C-spec group) and FSB (file record 

fields) SB offsets to addresses. 

Calculates WCA size, saves WCA address, and clears WCA to binary zeros. 

Calculates normal and alternate WDB sizes. 

Assigns master index area address, if required, and initializes MTI and key area pointers in each FSB DTF. 

Assigns format index area address, and initializes. FIA pointer in work station STF. 

If FMTLIB— parameter specified, finds user format library format 1 address (RFINDLIB). 

Builds work station DTF and attempts allocate, open, and close (except for last) for every format, 

and for menu format. 

Moves open DTF to high storage and saves address. 

Assigns screen data block address, and saves address and maximum input data length in work station 

DTF. 

Finds second job initialization module, #WSXI2. 

Loads #WSXI2 at region start. 

Shared work areas are left in higher storage, and the work file and data files are prepared. 
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#WSXI2 (WSU Initialization Phase, Part 2) 



Routines and 
Services Called 



Description 



($ALOC) 

(AFARW) 
(DALOC) 
(SALOC) 
($OPEN) 



(SALOC) 

($OPEN) 

(SVC) 

(FDIO) 

(MSG) 

(MSG) 

(SVC) 
(FDIO) 



($FIND) 

($LOAD) 

#WSXP 



Initializes each FSB in the following manner: 

Allocates DTF, using local lOB(s). 

Performs special processing to prevent loss of data in new transaction file should WSU abnormally end. 

Gets transaction file format 1 . 

If retain code not S or J and file new, deallocates DTF. 

Performs special allocate to force disposition old. 

Opens DTF and destroys backward chain. 

Copies local index and/or data lOB(s) to FSA, and adjusts DTF pointer(s) accordingly. 

Initializes DTF pointer to index data area. 

Changes key save area WCA offset and chain field DSA offsets to addresses. 

After all files handled, changes header record ID FSA offset to address and saves for #WSXP. 

Saves review supported attribute from control header. 

Calculates size requirement for, then allocates and opens, work file. 

Creates message data area (MDA) in work file by: 

— Reading and reformatting MDA from object program. 

— Retrieving texts from user message member for all MICs encountered in MSA. 

— Retrieving texts from WSU message member for all WSU messages. 
Adjusts MSA MDA offsets and sector addresses accordingly. 
Creates command data area (CDA) in work file by: 

— Copying CDA from object program, 

— Changing specification area offsets to addresses, and adjusting CSA CDB sector addresses accordingly. 
Computes and saves sector addresses for normal and alternate work station data areas. 

Computes and saves sector addresses for screen save areas. 

Determines and saves key field lengths for key save area format. 

Repositions initialization parameter block (IPB) at pool end, just ahead of permanent elements. 

Finds resident processing phase, #WSXP. 

Loads #WSXP at region start, places pool end address in XR1. 

Exits to set up low storage resident data/code and pool. 



^SXP (WSU Execution Processing Phase) 



Routines and 
Services Called 



Description 



($FIND) 
ABORT 



INTBEG 



Copies initialization parameter block to COMIPB. 

Clears pool (except for start code) and initializes pool element storage control blocks (fixed non- 
relocatable first, maximum relocatable FREE1, fixed relocatable last) and associated control fields 
in GEN DAT. 

Resolves TSA, and changes transient load module names to $LOAD parameters. 
If any transient module cannot be found, aborts job (03). 
If requested (TRACE— parameter), activates special call/exit trace. 
If review not supported, lowers priority of review handler transient. 

Begins first WSU cycle (by branching into interaction begin processor to accept sign-on for job-initiating 
work station). 

Cycles through low storage processors and pool resident transient routines, serially processes interactions 
(for up to a maximum of MRTMAX attached work stations), and accepts requests from work station data 
manager queue until sign-off completed for last work station (if non-NEP) or WSU job ended, aborted, 
or canceled by operator. 
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Resident Processor Descriptions 

Routine Externa! Call 

(#WSXP) 
CALLOO 



CALLXX 



(#WSXP) 
EX I TOO 



{#WSXP) 
TRNGET 



(TRNGET) 
(LOGTR) 



(TRNGET) 



(LOGTR) 



(A LOG AT) 
($LOAD) 





(REALOC) 


(#WSXP) 




INTCMP 




INTRST 




INTBEG 




INTEND 






CALLXX 


(#WSXP) 




ABORT 






(LOGTR) 




(SLOG) 




(SLOG) 




INTEND 



Description 

Call to Subroutine Processor. 

Secures called routine RSB address (from ARR). 

Steps forward to next QSA level. 

Saves work area and registers in QSA. 

If called routine not resident, loads transient module that contains the routine. 

If trace is active, logs subroutine call trace entry. 

Places address of common In XR1 and loads lAR to enter called routine. 

Exit from Subroutine Processor. 
Secures calling routine RSB address (from ARR). 

If calling routine not resident, loads transient module that contains the routine. 
Restores work area and registers from QSA. 
Steps back to previous QSA level. 
If trace is active, logs subroutine exit trace entry. 

Places address of common in XR1, reconstructs exit lAR, and loads lAR to return 
to calling routine. 

Transient Load Module Get Processor Subroutine. 

Locates TSB for transient module that contains routine specified via RSB address. 
Allocates pool element of requisite size and priority. 
Constructs load paramenter block from TSB fields. 
Loads transient module in new pool element. 

Updates each RSB for transient module to show resident status and entry point 
address. (Address constants are expected in RSB order at module end.) 
Reallocates unused space at module end to free pool element. 

Interaction Complete/Restart/Begin/End Processor. 
Signals interaction completing. 
Signals interaction restarting. 

Sets XR2 to point to RSB address for the driver routine. (For entry at INTEND, 
called routine RSB address must be in XR2 and should be that of AWSESS.) 
Steps back to QSB length before QSA start. 
Calls to work session driver (or AWSESS). 

Abort Session/Job Processor. 

Gets abort ID (from ARR). 

Formats and logs abort trace entry. 

If abort already in progress or if no current WCB exists, or if IJ or EJ time logs 

WSU-0802 to console, with a 3 only option. Otherwise, signals abort in progress. 
Identifies aborted work station in log record and logs WSU-0801 to console with 

option or 3. 
Selects AWSESS RSB address for called routine and exits to End Interaction Cycle. 
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Routine 

(#WSXP) 
WFIO 



External Call 



(#WSXP) 
SHIFT 



(#WSXP) 
MOVE 



(FDIO) 
ABORT 



Description 

Workfile I/O Processor. 

(Expects number of sectors and sector start in WRKIOB.) 
Completes initialization of work file lOB. 

Performs disk I/O, and transfers specified number of sectors between work file 
and storage pool element. 
If work file I/O completed abnormally, aborts session, or else returns to caller. 

Shift Data Block Processor. 

Shifts block of specified length from old starting address to new starting address 

(in segments up to 256 bytes, beginning with leftmost byte). 
Returns to caller. 

Move Data Block Processor. 

Moves block of specified length from old ending address to new ending address (in 
segments up to 256 bytes, beginning with rightmost byte). 
Returns to caller. 



DESCRIPTIONS OF ROUTINES ACCESSED VIA CALL AND EXIT 



Routines Resident in #WSXP 

Routine External Call 

ALOCOO 

(TRPOOL) 
ABORT 

ABORT 



(DEALOC) 



(FREE) 
(RLOCAT) 



Description 

Pool Element Allocation Routine. 

If active, logs storage request trace entry. 

If SRB size exceeds total free and deallocatable relocatable storage, aborts session 

(31). 
If invalid SRB attribute, priority, or size requested, or relocatable storage request 

and relocation required (still pending for last request), aborts session (01). 
If relocatable storage requested, adjusts maximum available relocatable free space. 

Signals relocation required, and steps past nonrelocatable pool elements. 
If nonrelocatable storage requested, steps past higher priority nonrelocatable pool 

elements. 
Deallocates all subsequent deallocatable pool elements of lower priority than 

element following or element to be allocated until large enough free element 

available. 
Allocates element, moving pool attributes/priority to SCB. 
Frees unused space at element end. 
If relocation required, relocates element. 
Places address of assigned storage in specified pointer. 
Clears SRB. 
Returns to caller. 
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Routine 
REALOO 



External Call Description 

Pool Element Reallocation Routine. 
(TRPOOL) If active, logs storage request trace entry. 

As requested via SRB: 

— Sets nondeallocatable attribute in SCb. 

— Sets deallocatable attribute in SCB. 

(FREE) — Frees unused space at end of element and adjusts maximum available 

relocatable free space. 

— Replaces data pointer, copies address from old pointer to new pointer and 
removes old pointer. 

(RLOCAT) - Relocates pool element. 

(DEALOC) — Deallocates pool element. 

— Clears SRB. 

ABORT — If invalid request encountered, aborts session (02). 

Returns to caller. 



FREEOO 



(TRPOOL) 



Free Pool Element Creation /Expansion Routine. 

If next element is a free element, combines area to be freed with this element, or 
else creates a new free element in area to be freed. 
Adjusts data pointer in new/expanded free element SCB. 
Adjusts size in shortened element SCB. 
If active, logs storage request trace entry. 
Returns to caller. 



RLOCOO 



DEALOO 



(MOVE) 
(SHIFT) 

(SHIFT) 

(MOVE) 

TRPOOL 
(WFIO) 



(MOVE) 
TRPOOL 



Pool Element Relocation Routine. 

Determines END limits of relocation. 

If any other allocated elements to be repositioned, then if no relocatable free 
element, or if relocatable free element smaller than element incrementally (in 
blocks up to 520 bytes, from rightmost) moves any portion of element to be 
overlaid to work area, shifts other affected elements toward vacated space, and 
moves saved portion after repositioned elements. 

If relocatable free element not smaller than element, shifts any other affected 
elements toward free element. 

Moves any unrelocated portion of element to new position. 

Updates every affected SCB. 

Signals relocation not required. 

If active, logs storage request trace entry. 

Returns to caller. 

Pool Element Deallocation Routine 

If special deallocation for normal or alternate work station data block, formats 

work file and saves WDB in work file. 
If special deallocation for transient module, updates each RSB for transient to 

show non resident status. 
Clears data pointer. 

Moves any preceding relocatable elements to deallocated space. 
Creates new free element or expands any preceding and/or following free elements. 
If active, logs storage request trace entry. 
Returns to caller. 



TRPOOL 



(LOGTR) 



Pool Storage Request Trace Writing Subroutine. 
Formats and logs trace entry for pool storage request. 
Returns to caller. 
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#WSXOO Routines 

Routine External Call 

TRDROO 

($TOD) 
(LOGTR) 



TRWSOO 



TRDFOO 



(LOGTR) 



(LOGTR) 
(LOGTR) 
(LOGTR) 



Description 

Driver Trace Writing Routine. 

Gets system time. 

Formats and logs time-stamped trace entry for driver-interaction cycle. 

Returns to caller. 

Worl< Station I/O Trace Writing Routine. 

Formats and logs trace entry for work station access. 

Returns to caller. 

Data File I/O Trace Writing Routine. 

Formats and logs trace entry for data file access. 

If transaction file, formats and logs trailer trace entry. 

If master file, formats and logs key trace entry. 

Returns to caller. 



#WSX01 Routines 

Routine External Call 

GETOOO 



(MSGWSU) 
INTCMP 



($GETD) 

GET905 
ABORT 
ABORT 



GET905 
GET905 



Description 

Data File Record Read Routine. 

(Expects key in key area and file buffer to be allocated and current.) 

If C-spec get for update capable file, saves key in WCB key entry, flags entry for 
no PUT pending, and flags entry for GET before PUT not required. 

If update capable file flags corresponding key entry in every other active WCB 
flagged for PUT pending for GET before PUT required, and if GET contention 
found (PUT pending for same key in some other active WCB), suspends session: 

— Flags WCB suspended. 

— Saves offset of contending WCB key entry. 

— Issues WSU-0709. 

— Exits to complete interaction. 

— Signals record found. 
If C-spec GET: 

— Sets off all record identifying indicators for file. 

— Sets off not-found indicator specified for operation or defaulted for file. 

— Adjusts buffer pointers in DTF and I OB. 

— Gets record into FDB. 

— Saves logical record displacement. 

— If no record found, signals record not found. 

— If key rejected, exits to Aborts Session (06). 

— If any other I/O error, exits to Aborts Session (04). 

— If transaction file, copies trailer from FDB to common work area then if 
not data or header record for current work station, signals record not found 
and goes to handle not-found condition. 

— Determines and saves record type RID address. 

— If record type not identified, signals record found but clears record type RID 
address and goes to handle not-found condition. 

— Sets on record identifying indicator for record type. 
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Routine 



External Call 



Description 



GETOOO 
(continued) 



GET490 



(TRDFIO) 



If update capable file and C-spec get: 

— Saves record type RID address in WCB key entry, flags entry for PUT pending, 
and signals GET update performed. 

— Moves fields from FDB to JDB, and expands packed fields. 

If active, logs data file trace entry. 
Returns to caller. 



GET905 



GET490 
ABORT 

GET490 



Handles not-found condition: 

If not C-spec get, returns. 

If no not-found indicator specified, Aborts Session (05). 

Sets on not-found indicator. 

Returns to caller. 



^SX02 Routines 

Routine External Call 

PUTOOO 



ABORT 
ABORT 



ABORT 



($GETD) 

ABORT 

ABORT 



($PUTD) 
ABORT 
ABORT 
(TRDFIO) 



Description 

Data File Record Write Routine. 

(Expects key in key area and file buffer to be allocated and current.) 
Updates buffer addresses in DTF and lOB. 

If no RID in C-spec (record type not specified), defaults RID saved in WCB key 
entry for file. 
If transaction file and RID in C-spec: 

— Signals GET before PUT required. 

— If add pending and relative record number overflow. Aborts Session (30). 

If master file or no RID in C-spec and WCB key entry not marked for PUT pending. 
Aborts Session (08). 

Flags WCB key entry for no PUT pending and GET before PUT not required. 

If WCB key entry was marked for GET before PUT required, signals GET before 
PUT required. 

If key differs from PUT pending key in WCB key entry, Aborts Session (33). 

If GET before PUT required or if transaction file and RID in C-spec, flags corre- 
sponding key entry in every other active WCB flagged for PUT pending for GET 
before PUT required. 

If first time GET, or GET before PUT required, gets record into FDB. 

If transaction file and past extent. Aborts Session (29). 

If any other I/O error. Aborts Session (07). 

Saves logical record displacement. 

If transaction file and add pending, signals no add pending, and copies trailer 
from common work area to FDB. 

Moves fields from JDB to FDB, and compresses packed fields. 

Puts record into data file. 

If update error (key not last get), Aborts Session (33). 

If any other I/O error. Aborts Session (09). 

If active, logs data file I/O trace entry. 

Returns to caller. 
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#WSX03 Routines 

Routine External Call 

PUTSOO 

(SAVRST) 



PUTS310 

MSGWSU 
MSGWSU 



PUTS310 



PUTS310 



MSGWSU 



(WSIO) 



INTCMP 
MSGWSU 



PUTS410 



(WSIO) 



Description 

Screen Display Puts Routine. 

(Expects address of selected PSB in WRK0X-WRKX1.) 

Performs save/restore for enter or review screen if required. 

If user or menu response pending, selects any timely WSU message: 

— If stop required, selects WSU-071 0. 

If mode change message pending, signals mode message not pending then selects 
WSU-071 3 (enter mode active), WSU-0708 (review mode active), or WSU-0724 
(insert mode active). 

If menu response pending: 

— Defaults relative record number to review from *RLRN. 

— Signals session suspended for menu. 

— Signals menu display up. 

— Formats work station DTF for PUT, and inserts WSU menu name. 

— Goes to display menu. 

If MSG or IMSG response pending: 

— Requests invite input. 

— Signals MSG or IMSG operation. 

— If IMSG response pending, requests erase format and exits to display message. 
Prepares domestic or World Trade editing mask. 

If no display defined for selected PSB, requests erase format and exits to display 
any message(s). 

— If display has no input fields but has keyboard reset feature, requests 
erase format. 

— Extracts output fields to SDB and edits fields as required. 

— Inserts user format name into work station DTF. 

— If PUT override allowed and if selected PSB current, formats work station 
DTF for PUT override. 

— Displays user format. 

Formats work station DTF for PUT then invite. 

If no user or menu response pending, or message selected, formats work station 
DTF for PUT, no invite. 
Puts display on screen. 

If no user or menu response pending, returns to caller. 
If menu response not pending, signals PUT override allowed. 
If no message selected, exits to complete interaction cycle. 
Exits to display message(s). 

Message Put Routine. 

If WSU message input requested and menu is displayed, signals menu response 
pending and proceeds to issue message. 
If erase requested: 

— Signals PUT override not OK. 

— Formats work station DTF and SDB for erase format table. 

— Erases format table. 

— Reformats work station DTF. 
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Routine 
PUTS410 



External Call 



(MDBGET) 

(WSIO) 

INTCMP 

(MDBGET) 

(WSIO) 

INTCMP 

(WSIO) 
INTCMP 



SAVROO 



(WSIO) 



Description 

Formats work station DTF for write error. 
If message selected: 

— Formats work station DTF for PUT. 

— Converts selected message to MSB address. 

— If selected MSB not current, gets corresponding MDB. 

— Formats SDB from MDB message text. 

— If no MSG or IMSG response pending and if invite input requested, formats 
work station DTF for PUT then invite. 

— Puts message on screen. 

— If no MSG or IMSG response pending: 

— If invite input not requested, returns to caller. 

— If invite input requested, exits to complete interaction cycle. 
If MSG or IMSG operation: 

— Formats work station DTF for PUT tiien invite. 

— If requested MSB not current, gets corresponding MDB. 

— Formats SDB from MDB message text. 

— Puts message on screen. 

— Signals no MSG or IMSG operation. 

— Exits to complete interaction cycle. 

If no message selected and no MSG or IMSG response pending: 

— Requests reset then invite. 

— Invites input from work station. 

— Signals no MSG or IMSG operation. 

— Exits to complete interaction cycle. 

Save/Restore Screen Routine. 

If review mode, and if enter mode screen not saved, signals enter mode screen 

saved and sets to save screen. 
If menu request in enter mode, and if enter mode screen not saved, signals enter 

mode screen saved and sets to save screen. 
If menu request in review mode and if review mode screen not saved, signals review 

mode screen saved and sets to save screen. 
If enter mode screen saved and if enter mode: 

— Signals enter mode screen not saved. 

— Signals menu display not up. 

— Sets to restore screen. 

If review mode screen saved and if review mode and menu response not pending: 

— Signals review mode screen not saved. 

— Signals menu display not up, and sets to restore screen. 
If no save/restore required, returns to caller. 

Formats work station DTF for save/restore and exits to Save/Restore Screen. 



WSIOOO 



($WSIO) 

(TRWSIO) 
WSABC 



Work Station I/O Routine. 

Relays Preformatted work station DTF request to work station data management 

(WSDM). 
If active, logs work station I/O trace entry. 
If WSDM completion abnormal, exits to process work station I/O completion code. 

(Control may return.) 
Returns to caller. 
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Routine 

MDBGOO 



External Call Description 

Message Data Block Get Routine. 
(Expects address of selected MSB in WRK10-WRK11.) 
(REALOC) Reallocates any current MDB as deallocatable, and transfers pointer from comnnon 

to MSB. 

Makes selected MSB current. 
(ALOCAT) If MDB for selected MSB not allocated, allocates relocatable, non-deallocatable 

(REALOC) pool element of requisite size and priority. Otherwise, reallocates MDB as non- 

deallocatable, and transfers pointer from MSB to common. 
(WFIO) If new MDB element allocated, formats work file lOB, fetches MDB from work 

(REALOC) file, shifts message text to MDB start, and reallocates pool element to free 

unused space. 
Returns to caller. 



#WSX04 Routines 

Routine External Call 

ARANOO 



Description 

Alphameric Range Routine. 

Processes RANGE C-spec operation for alphameric factors. 

Returns to caller. 



#WSX05 Routines 




Routine 


External Call 


CSP040 




CSPOOO 


(SP070) 

(CDBGET) 

CSPOOO 




(CDBGET) 


CSP070 


CSP040 
(LOGTR) 




ABORT 
CSP ... . 


CSP0200 





(TXGET) 

(TDRGET) 
CSP040 



Description 

C-Specification(C-Spec) Processing Routine. 
Adjusts lAR past current C-spec. 

If more C-specs in group, goes to process nect C-spec. 

If not last CSB of group, gets CDB for next CSB and goes to process first C-spec. 

If CSB in subroutine group, restores CSB and C-spec I AR; gets CDB for resumed 
CSB, goes to process next instruction. 
Returns to caller. 

Saves length of current C-spec. 

Branches to bypass C-spec as dictated by conditioning indicator status. 

If active, formats and logs C-spec trace entry. 

Performs operation setup, by building C-spec description in COMQSB. 

If operation unrecognized. Aborts Session (10). 

Selects and routes control to subprocessor for specified operation. 

GETNH Subprocessor. 

Adjusts next record to last GET next record. 

Selects not-found indicator from C-spec. 

Reads next records until header record or chain end found. 

Selects located header record. 

Gets selected trasaction file data record. 

Returns for next C-spec. 
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Routine 
CSP0400 



External Call 



CSP0600 



CSP0800 



CSPOAOO 



(TDRGET) 
CSP040 



(TDRGET) 
CSP040 



(TDRGET) 
CSP040 



(DRGET) 
CSP040 



CSPOCOO 



CSPOEOO 



(DRPUT) 
CSP040 



(PUTS) 
CSP040 
INTRST 



PUTS 



CSP1000 



PUTS 



CSP1200 



PUTS 



Description 

GETNR Subprocessor. 

Selects not-found indicator from C-spec. 

Selects last GETnext record. 

Gets selected transaction file data record. 

Returns for next C-spec. 

GETPR Subprocessor. 

Selects not-found indicator from C-spec. 

Selects /asf G£T previous record. 

Gets selected transaction file data record. 

Returns for next C-spec. 

GETPH Subprocessor. 
Selects not-found indicator from C-spec. 
Selects last GET previous header record. 
Gets selected transaction file data record. 
Returns for next C-spec. 

GET Subprocessor. 

Selects FSB from C-spec. 

Selects not found indicator from C-spec. 

Gets master file data record. (Session may be suspended for GET contention.) 

Returns for next C-spec. 

PUT Subprocessor. 

Selects FSB from C-spec. 

Selects RID from C-spec. 

Puts master/transaction file data record. 

Returns for next C-spec. 

PUTS Subprocessor. 

If reset keyboard not requested, displays user format and returns for next C-spec. 

If PSB auto selected or not current, selects specified PSB as next to process and 
exits to restart interaction. 
Signals preprocessing response pending. 
Signals override not allowed. 
Exits to display user format. 

MSG Subprocessor. 

Signals MSG response pending. 

Sets on RP indicator. 

Sets on any resulting indicators. 

Selects MSB from C-spec. 

Exits to display user format with message line. 

IMSG Subprocessor. 
Signals IMSG response pending. 
Sets on any resulting indicators. 
Selects MSB from C-spec. 
Exits to display message line. 
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Routine 


External Call 


Description 


CSP1400 




EXSR Subprocessor. 

Saves lAR. 

Sets up lAR for subroutine 




(CDBGET) 


Get CDB for subroutine CS 




CSPOOO 




CSP1600 




SETON Subprocessor. 
Sets on specified indicators 




CSP040 


Returns for next C-spec. 



CSP1800 



CSP1A00 



CSP040 



(CDBGET) 
CSPOOO 



SETOF Subprocessor. 

Sets off specified indicators. 

Returns for next C-spec. 

GOTO Subprocessor. 

Sets up lAR for target C-spec. 

If not current, gets CDB for target CSB. 

Goes to process target C-spec. 



CSP4000 



CSP940 



CO MP (Alpha) Subprocessor. 

Processes alpha compare C-spec operation. 

Goes to set resulting indicators. 



CSP4200 



RANGE (Alpha) Subprocessor. 
(ARANGE) Processes alpha RANGE C-spec operation. 

CSP940 Goes to set resulting indicators. 



CSP4400 



CSP040 



Move Subprocessor. 

Processes MOVE C-spec operation, and updates JDB field. 

Returns for next C-spec. 



CSP4600 



CSP040 



MOVEL Subprocessor. 

Processes move left C-spec operation, and updates JDB field. 

Returns for next C-spec. 



CSP4800 



CSP040 



MOVE *B LANK Subprocessor. 

Processes MOVE *BLANK C-spec operation, and updates JDB field. 

Returns for next C-spec. 



CSP4A00 



COMP (alpha, literal table) Subprocessor. 
(ALTCMP) Processes alpha literal table compare C-spec operation. 

CSP940 Goes to set resulting indicators. 



CSP4C00 



COMP (alpha, field table) Subprocessor. 
(AFTCMP) Processes alpha field table compare C-spec operation. 

CSP940 Goes to set resulting indicators. 



CSP6A00 



COMP (numeric, literal table) Subprocessor. 
(NLTCMP) Processes numeric literal table compare C-spec operation. 

CSP940 Goes to set resulting indicators. 
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Routine 

CSP6C00 

CSP6E00 



External Call Description 

{ N FTCM P) COMP (numeric, literal table) Subprocessor. 

CSP940 Processes numeric field table compare C-sped operation. 

Goes to set resulting indicators. 

MUL T Subprocessor. 
(MULT) Processes multiply C-spec operation. 

CSP940 Goes to set resulting Indicators. 



CSP7000 



(DIVD) 
CSP940 



Dl V Subprocessor. 

Processes divide C-spec operation. 

Goes to set resulting indicators. 



CSP7200 



CSP7400 



CSP7600 



(MVR) 
CSP940 



CSP900 



CSP900 



MVR Subprocessors. 

Processes move remainder C-spec operation. 

Goes to set resulting indicators. 

Z-ADD Subprocessor. 

Processes zero and add C-spec operation. 

Goes to complete decimal operation. 

Z-SUB Subprocessor. 

Processes zero and subtract C-spec operation. 

Goes to complete decimal operation. 



CSP7800 



CSP7A00 



CSP7C00 



CSP7E00 



CSP900 



CSP940 



CSP900 



CSP900 



CSP940 



CSP940 



CSP940 



CSP040 



ADD Subprocessor. 

Processes add C-spec operation. 

Goes to complete decimal operation. 

SUB Subprocessor. 

Processes subtract C-spec operation. 

Goes to complete decimal operation. 

RANGE (Numeric) Subprocessor. 
Processes numeric range C-spec operation. 
Goes to set resulting indicators. 

COMP (Numeric) Subprocessor. 

Processes numeric compare C-spec operation. 

Goes to set resulting indicators. 

Half adjusts result if necessary. 

Moves result to JDB. 

Goes to set resulting indicators. 

Sets resulting indicators based on condition register. 
Returns for next C-spec. 
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#WSX06 Routines 

Routine External Call 



IWSOOO 



(TXGET) 
(TXPUT) 
(TXGET) 

(TXGET) 

(TXPUT) 



ABORT 



(CLRJDB) 

($INFO) 

(TXGET) 



ABORT 

(TXPUT) 
(TXGET) 



(BINDEC) 
INTRST 



(BINDEC) 

INTRST 

MSGWSU 



INTRST 



INTRST 



Description 

Initiate Worl< Session Routine. 

If IJ processing segment not previously selected, performs job initialization (startup): 

— Creates or updates job control record in transaction file, and tags job control 
record (JCR) for job ABEND. 

— Processes work station control records, determines last reserved record, and 
searches for aborted sessions. 

— If aborted session discovered, reads to end of data record chain for session, 
updates corresponding work station control record, validates chain fields and 
tags work station control record (WCR) as recovered. 

If no current WCB exists, activates session: 

— Releases session if EJ time. 

— Assigns work station ID to first available inactive WCB. 

— If no inactive WCB available, aborts job (16). 

— Makes selected WCB current and flags that WCB as active. 

— Clears work station level pointers in common and sets off work station level 
indicators. 

— Zeros or blanks work station level JDB fields. 

— Retrieves UPSI switches to set indicators U1-U8. 

— Performs work station initialization (sign-on): reprocesses work station 
control record chain. 

— If old work station control record with matching work station ID found, sets 
on RS indicator. 

— If previous session recovered, sets on RC indicator. 

If previous session aborted but not yet recovered, aborts session (17). 

— If no matching work station control record found, allocates work station 
control record. 

— Work station control record for session ABEND. 

— Saves work station control record number in WCB. 

— Initializes transaction record pointers in COMMON. 
If IJ processing segment not previously selected, 

— Selects IJ segment. 

— Signals IJ time. 

— Sets on IJ indicator. 

— Flags WCB job-initiating. 

— Initializes *RLNO to last reserved record. 

— Exits to restart interaction cycle. 
If not IWtime, 

— Signals IWtime. 

— Sets on IW indicator. 

— Selects IW processing segment. 

— Initializes *RLNO to add next record. 

— If not IJ time, exits to restart interaction cycle. 

— If not job-initiating WCB, signals WSU response pending and exits to erase 
format table and issue WSU-0701 . 

— Signals not IJ time. 

— Sets off IJ indicator. 

— Exits to restart interaction. 

If IW time, initiates first user sequence processing segment: 

— Signals not IW time. 

— Sets off IW indicator. 

— Selects first PSB in primary sequence. 

— Exits to Restart Interaction. 
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#WSX07 Routines 

Routine External Call 

SELECT 

MSGWSU 

MSGWSU 



INTRST 
MSGWSU 



EWSESS 
(REVIEW) 



EWSESS 

INTRST 
IWSESS 
INTRST 

INTRST 

INTRST 

INTRST 

INTRST 



MSGWSU 
INTRST 



Description 

Select Next Enter Mode Processing Segment Routine. 

If select display by ID and not command key 13, find PSB with selected ID. 

If there is no PSB with that ID, or the PSB is not enter selectable, exits to 

issue WSU-0707. 
Saves PSB address. 
If IJ, IW, ES, EW, or EJ indicator on or IJ, IW, ES, EW, or EJ time, or EJ forced, 

exits to issue WSU-0720. 
If identified PSB current, reinitiates identified (current) processing segment: 

— Selects identified PSB. 

— Signals no user response pending. 

— Exits to restart interaction. 

If not select next display and not command key 13, and required input pending, 
signals WSU response pending and exits to issue WSU-0703. 
If not select display by ID, initiates next enter mode processing segment: 

— If EJ indicator on, signals EOJ forced. 

— If EOJ forced, sets on EJ indicator. 

— If not EW time, sets on EW indicator. 

— If EW time or EJ time, exits to terminate work session. 

— If ES, EW, EJ indicator on: If review mode, requests resume entry (command 
key 3) and invokes review mode handler. 

— Signals not IJ time or IW time. 

— Sets off IJ and IW indicators. 

— If ES time and EW or EJ indicator on, exits to end session. 

— Signals ES time. 

— Sets on ES indicator. 

— Selects ES PSB and exits to restart interaction. 

— If IJ time or IW time, exits to initiate work session. 

— If ES time, signals not ES time, sets off ES indicator, selects first PSB in 
primary sequence and exits to restart interaction. 

— If current PSB looping and bypass display not keyed, selects current PSB 
and exits to restart interaction. 

— If last PSB in primary sequence, signals ES time, sets on ES indicator, selects 
ES PSB and exits to restart interaction. 

— If PSB not sequenced, selects previous sequenced PSB and exits to restart 
interaction. 

— If PSB sequenced and not sequence end, selects next logical PSB and exits 
to restart interaction. 

— If PSB sequenced and sequence end, finds and selects first PSB in current 
sequence and exits to restart interaction. 

If select display by ID, initiates identified validated processing segment: 

— Unless identified PSB not sequenced, scans intervening logical sequence. 

— If primary sequence member, checks all PSBs between most recently 
current primary sequence PSB and identified PSB, and cycles back to 
sequence start when appropriate. 

— If preceded in own sequence by current PSB, checks all PSBs between 
current PSB and identified PSB. Otherwise checks all PSBs from start of 
own sequence to identified PSB. 

— If any PSB in logical sequence required has required input or is ES PSB 
with C-specs, signals WSU response pending and exits to issue WSU-0723. 

— Selects identified PSB, and exits to restart interaction. 
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^SX08 Routines 

Routine External Call 

NRMOOO 



NRM130 
PUTS 



MSGWSU 



PUTS 



NRM130 



(CDBGET) 
CSPEC 



NRM140 



CDBGOO 



MSGWSU 



(MSGWSU) 
SELECT 



(REALOC) 



(ALOCAT) 
(WFIO) 
(REALOC) 
(REALOC) 



Description 

Normal Function Handling Routine. 
If session suspended, restores session: 

— Signals session not suspended. 

— If session suspended for GET: 

— Restart processing at GET C-spec. 

— If user response pending, exits to display PSB-associated user format. 
If no user response pending: 

— Sets off RP indicator. 

— If next PSB unselected (user intervention required), exits to issue WSU-0722. 

— Makes next PSB current and new next PSB unselected. 

— Signals PUT override not allowed. 

— If enter mode and input required for PSB, signals required input pending. 

— If in sequence, adjusts last sequenced PSB pointer. 

— If in primary sequence, adjusts last primary sequence PSB pointer. 

— If auto display indicated, signals auto PUTS response pending and exits to 
display PSB-associated user format. 

If user response pending: 

— Signals required input not pending. 

— If input data present, extracts input fields from SDB to JDB. 

If C-spec group associated with current PSB, (re)starts C-spec processing: 

— If preprocessing PUTS or IMSG response pending, sets lAR past last C-spec 
processed. 

— If auto PUTS, MSG, or no response pending, clears lAR and ARR and zeros 
length of current C-spec. 

— Initializes lAR CSB to start of PSB-associated group. 

Signals no user response pending. 

— Signals C-spec in process. 

— If not current, gets CDB for lAR CSB. 

— Exits to start processing at first C-spec in group. (Control may return.) 

— Signals C-spec not in process. 

Signals no user response pending. 
If RV time: 

— Makes current PSB undetermined. 

— If ES. EW, or indicator not on and EJ not forced, erases format table and 
issues WSU-0717/0718 with invite input. 

— Erases format table and issues WSU-071 7/071 8 with no invite input. 
Signals select next display requested and exits to select next enter mode segment. 

Command Data Block Get Routine. 

Reallocates any current CDB as deallocatable, and transfers pointer from 

COMMON to CSB. 
Makes lAR CSB current. 
If CDB for lAR CSB not allowed, allocates relocatable, non-deallocatable pool 

element of requisite size and priority, formats work file lOB, fetches CDB from 

work file, and reallocates pool element to free unused space and relocate. 
If CDB is allocated, reallocates CDB as non-deallocatable, and transfers pointer 

from CSB to COMMON. 
Returns to caller. 
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#WSX09 Routines 

Routine External Call 

EWSOOO 

EWS070 

EWS100 



INTRST 
EWSlOO 



Description 

End Work Session Routine. 

If abort in progress or work station release requested, performs abnormal session 
termination. 
If EJ time: 

— Performs normal session termination for last work station. 
If EW time: 

— Signals not EW time. 

— Selects WSU-07 12. 

— If no other active session and either non-NEP job or EOJ forced, initiates 
EJ processing: 

— Signals EJ time, 

— Sets ON EJ indicator, 

— Selects EJ processing, 

— Signals no user response pending, and exits to restart interaction. 

— If some other session active or NEP job and EOJ not forced, performs 
normal session termination. 



EWSlOO 



EWS070 



(TXGET) 
(TXPUT) 



{$INFO) 

(REALOC) 
(REALOC) 



(TXGET) 
(TXPUT) 
($CLOS) 
($EOJ) 

(WSIO) 



INTCMP 



INTRST 



Performs work station termination (sign-off): 

— Gets work station control record, and updates its trailer for normal 
session end. 

— Signals work station release requested. 

Deactivates session: 

— Replaces UPSI switches with indicators U1-U8. 

— Clears processing flags in WCB (flags WCB not active). 

— Deallocates any normal WDB. 

— Deallocates any alternate WDB. 

If EJ has been done by this work session: 

— Performs job termination (shutdown): 

— Gets job control record and updates US trailer. 

— Closes all data files. 

— Terminates job. 

— Clears processing flags in every WCB key entry. 

— If work station release requested, signals work station release not requested, 
formats work station DTP, and releases work station. 

— Signals no current WCB exits. 

— Exits to complete interaction. 
If not EWtime: 

— Signals no user response pending. 

— Sets on EW indicator. 

— Signals EWtime. 

— Selects EW processing. 

— Exits to restart interaction. 
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miSXIO Routines 

Routine External Call 

DRIVOO 



DRIV010 



(TRDRVR) 

($WSIO) 

(TRWSIO) 

WSABC 

(WDBGET) 

WSABC 

RESP 

MENU 
NRMLFN 

MSGWSU 
REVIEW 

MSGWSU 
REVIEW 



MSGWSU 
REVIEW 
NRMLFN 
MSGWSU 

PUTS 

SELECT 
REVIEW 

MSGWSU 
NRMLFN 



Description 

Execution Driver Routine. 

If active, logs driver interaction cycle trace entry. 

If interaction cycle beginning: 

— Formats work station DTF. 

— Accepts input from WSDM. 

— Saves current work station ID and interaction aid. 

— If input data not null, signals input data present. 

— If active, logs work station I/O trace entry. 

— Locates active WCB for old requestor and makes current. 

— If WCB not found (assumes new requestor), exits to process work station 
I/O completion code. 

— If current work station ID other than that last tended, retrieves normal WDB 
to restore session environment. 

— Sets off command key indicators. 

— If WDSM completion abnormal, exits to process work station I/O 
completion code (control may return). 

If interaction cycle (re)starting: 

— Signals no interaction cycle restarting. 

— If WSU response pending, exits to process message response. 

— If enter entered: 

If menu response pending, exits to process menu response, or else exits to 
process normal function. 

— If roll down entered: 

If review not supported, exits to issue WSU-0702, or else exits to review 
mode handler. 

— If roll up entered: 

Signals roll up requested. If review not supported, exits to issue WSU-0702, 
or else exits to review mode handler. 

— Sets command key indicator. 

— If review function entered (command keys 3-6): 

If review not supported, exits to issue WSU-0702, or else exits to review 
mode handler. (Control returns for command key 3.) Exits to process 
normal function. 

— If menu response pending, exits to issue WSU-0702. 

— If menu request (command key 1): 

Signals menu response pending and exits to display menu, 

— If bypass display request (command key 2): 

If not RV time, exits to select next enter mode segment, or else exits to 
Review Mode Handler. 

— If reserved function entered (command keys 14-15): 
Exits to issue WSU-0702. 

— If user-defined function entered (other command key), exits to process 
normal function. 



Work Station Utility (WSU) 1-53 



Licensed Material-Property of IBM 



Routine 



External Call 



Description 



DRIV010 
(continued) 



(WDBPUT) 

DRIV010 

DRIV010 
ABORT 

(WDBGET) 



NRMLFN 



If interaction cycle completing: 

— If current WCB exits, if GET update performed, flags all WCB key entries 
with PUT pending (for shared update-capable files). 

— If GET before PUT required, prepares normal WDB to save session 
environment, and clears processing flags 1 and 2 (signals no current WCB 
exists). Determines status of sessions. 

— If no session suspended, begins new cycle. 

— Searches for first active, suspended, resumable (no other WCB has put 
pending and matching key in contending WCB key entry) session. 

— If no session resumable, but some session active and unsuspended, begins 
cycle. 

— If all active sessions suspended (deadlock) Aborts Job (25). 
Resumes session: 

— Makes first resumable WCB current. 

— Retrieves WDB to restore session environment. 

— Signals current WCB exists. 

— Signals GET suspension. 

— Flags WCB not suspended. 

— Restores current work station ID from WCB. 

— Exits to process normal function. 



WDBGOO 



Work Station Data Block Get Routine. 
(Expects normal/alternate indication in WRK11.) 
Sets up to process normal or alternate WDB. 
(ALOCAT) If requested WDB not allocated, allocates relocatable, pool element of requisite 

(WFIO) size and priority, formats work file lOB, and reads requested work file WDB to 

new pool element. 
(MOVE) Restores work station level JDB fields, common work station level indicators, 

and common work station level control data fields from WDB. 
(REALOC) If allocation was done, reallocates pooled WDB to free unused space at end, 

relocate shortened WDB, and set deallocatable attribute. 
Returns to caller. 



WDBPOO 



Work Station Data Block Put Routine. 
(Expects normal/alternate indication in WRK11.) 
Sets up to process normal or alternate WDB. 
(ALOCAT) If requested WDB not allocated, allocates relocatable pool element of requisite 

size and priority. 
(MOVE) Formats WDB in pool, saving work station level JDB fields, common work station 

level indicators, and common work station level control data fields in WDB. 
(REALOC) If allocation was done, reallocates pooled WDB to set deallocatable attribute. 

Returns to caller. 
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#WSX11 Routines 

Routine External Call 

MULTOO 



Description 

Multiply Routine. 

Processes multiply C-spec operation and saves result in JDB. 

Returns to caller. 



msXM Routines 

Routine External Call 

DIVDOO 

ABORT 

MVROOO 



Description 

Divide Routine. 

Processes divide C-spec operation, and saves result in JDB and remainder in 
CSPWRK. 

If divide by zero, Aborts Job (32). 
Returns to caller. 

Move Remainder Routine. 

(Expects remainder in CSPWRK.) 

Processes MVR C-spec operation and saves result in JDB. 

Returns to caller. 



MSX13 Routines 

Routine External Call 

ALTCOO 

AFTCOO 



Description 

Alphameric Literal Table Compare Routine. 

Processes table compare C-spec operation for table of alphameric literals. 

Returns to caller. 

Alphameric Field Table Compare Routine. 

Processes table compare C-spec operation for table of alphameric fields. 

Returns to caller. 



#WSX14 Routines 

Routine External Call 

NLTCOO 

NFTCOO 



Description 

Numeric Literal Table Compare Routine. 

Processes table compare C-spec operation for table of numeric literals. 

Returns to caller. 

Numeric Field Table Compare Routine. 

Processes table compare C-spec operation for table of numeric fields. 

Returns to caller. 
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i<!!WSX15 Routines 

Routine External Call 

BINDOO 



DECBOO 



Description 

Binary to Decimal Conversion Routine. 

(Expects address of specified DSB in WRK01-WRK11 and binary value in WRK5-6.) 
Converts specified binary value to decimal character equivalent in JDB position 
indicated in specified DSB. 
Returns to caller. 

Decimal to Binary Conversion Routine. 
(Expectsaddressof specified DSB in WR KOI -WRK11). 

Converts decimal character value in JDB position indicated in specified DSB to 
binary equivalent in key area. 
Returns to caller. 



#WSX16 Routines 

Routine External Call 

RESPOO 

MSGWSU 



INTRST 

INTRST 
MSGWSU 



SELECT 
INTRST 
MSGWSU 



INTRST 
ABORT 



Description 

WSU Message Response Handling Routine. 
Signals WSU response not pending. 
If response to WSU-0701 : 

— If IJ time, signals WSU response pending and exits to erase format table 
and reissue WSU-0701 . 

— Forces enter aid. 

— Exits to restart interaction. 
If response to WSU-0703: 

— If not command key 13 (accept with error), exits to restart interaction, 

— If AE indicator off, signals WSU response pending and exits to reissue 
WSU-0703. 

— If menu display up, signals select display by ID requested and signals no 
menu response pending. 

— If menu display not up, sets on command key 2 (bypass display). 

— Exits to select next enter mode segment. 
If response to WSU-0723: 

— If not command key 13 (accept error aid), exits to restart interaction. 

— Forces enter aid. 

— If AE indicator off, signals WSU response pending and exits to reissue 
WSU-0723. 

— Initiates error-accepted identified processing: 
Signals no user response pending. 

Signals no menu response pending. 

Makes selected processing segment next to process. 

— Exits to restart interaction. 

If response unrecognized. Aborts Job (27). 
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Routine 

MENUOO 



External Call 



SELECT 
REVIEW 

MSGWSU 



SELECT 



INTRST 



MSGWSU 



INTRST 
REVIEW 

MSGWSU 



Description 

Menu Response Handling Routine. 
Signals menu response not pending. 
Signals no input data present. 
If display ID entered: 

— Signals select display by ID requested. 

— If not RV time, saves display ID and exits to select enter mode segment. 

— If RV time, exits to review mode handler. 
If EW entered: 

— If EW time, exits to issue WSU-0702. 

— Signals not ES time. 

— Sets on EW indicator. 

— Signals select next logical display requested. 

— Exits to select enter mode segment. 
If TR entered: 

— Resets trace control from menu-entered template. 

— Exits to restart interaction. 
If invalid data entered for EW/TR: 

— Signals menu. response pending. 

— Exits to issue WSU-071 9. 

If relative record number to review entered (assumed): 

— Sets *RLRN to relative record number to review. 

— If *RLRN zero, exits to restart interaction. 

— If review supported, requests review by relative record number and 
exits to review mode handler. 

— Exits to issue WSU-0702. 



AWSOOO 



WSABOO 



Worl< Session Abort Routine. 

Signals session aborted. 
(MSGWSU) If not work station I/O error abort ID, signals work station release requested and 

erases format table and issues WSU-071 1. 
EWSESS Exits to end work session. 

Worl< Station I/O Abnormal Completion Handling Routine. 

If no current WCB exists: 
IWSESS — If sign-on attempt, exits to initiate work session. 

ABORT - If stop requested. Aborts Job (36). 

ABORT - If invite input failed, Aborts Job (11). 

ABORT - If any other error. Aborts Job (26). 

If current WCB exists: 

— If release of SRT station, returns to caller (ignores error). 

— If stop requested, signals stop required and returns to caller. 
ABORT - If permanent error. Aborts Job (13). 

ABORT — If work station released by operator. Aborts Job (14). 

ABORT - If work station offline. Aborts Job (14). 

ABORT - If any other error. Aborts Job (15). 
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^^SX17 Routines 

Routine External Call 

TXGOOO 

(FDBGET) 
($GETD) 



(TRDFIO) 

ABORT 

ABORT 

ABORT 
ABORT 



TXPOOO 



($PUTD) 

(TRDFIO) 
ABORT 



Description 

Transaction File Control Record Get Routine. 
Copies relative record number to key area. 

Flags any active WCB with a transaction file key entry flagged for PUT pending 
for GET before PUT required. 
If not current, allocates FDB for transaction file FSB. 
Adjusts DTF and lOB buffer pointers. 
Gets record. 

Saves logical record displacement. 

Moves trailer information from FDB to common work area- 
Clears saved record type. 
If active, logs data file I/O trace entry. 

If get out of extent, if not review record GET, Aborts Session (28). 
If GET unsuccessful. Aborts Session (22), 

If review record GET or end of data record chain, returns to caller. 
If trailer ID invalid for operation type. Aborts Session (19, 20, 21). 
If data record not marked with current work station ID, Aborts Session (21). 
Returns to caller. 

Transaction File Control Record PUT Routine. 

(Expects key in key area.) 

Adjusts DTF and lOB buffer pointers. 

Copies trailer information from common work area to FDB. 

Puts record. 

Clears saved record type. 

If active, logs data file I/O trace entry. 

If PUT unsuccessful. Aborts Session (23). 

Returns to caller. 



#WSX18 Routines 

Routine External Call 

TDRGOO 

(FDBGET) 

(GET) 



Description 

Transaction Data File Record GET Routine. 
If not current, allocates FDB for transaction file. 
Copies relative record number to key area. 
Gets transaction file data record. 

If C-spec GET updates transaction. Last GET pointers in common Last GET 
template from trailer chain fields. 
Returns to caller. 
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Routine 
FDBGOO 



External Call 

(REALOC) 
(ALOCAT) 
(REALOC) 



KEYOOO 



(DECBIN) 



Description 

File Data Block GET Routine. 

(Expects address of selected FSB in WRK01-WRK11.) 

Reallocates any current FDB as dealiocatable, and transfers pointer from 

COMMON to FSB. 
Makes selected FSB current. 
If FDB for selected FSB not allocated, signals first time GET, flags DTF for first 

time GET, primes buffer pointers, then allocates relocatable, non-deallocatable 

pool element of requisite size and priority. 
If FDB allocated, reallocates FDB as non-deallocatable, and transfers pointer 

from FSB to COMMON. 
Returns to caller. 

Master File Key Building Routine. 

Builds master file key in key area, extracts chain fields from JDB, concatenates 

indexed unpacked keys, packs indexed packed keys, or converts direct keys to 

binary as indicated in the current FSB. 
Returns to caller. 



#WSX19 Routines 

Routine External Call 

REVOOO 

MSGWSU 



INTRST 

MSGWSU 
MSGWSU 



INTRST 



Description 

Review Mode Handling Routine. 

(Expects ID of selected PSB in WRKlO-WRKll.) 

If command key 2 (bypass display): 

— If review or insert not in progress, exits to issue WSU-0702. 

— Initiates next review/insert mode processing segment: 

Selects next PSB which supports review-of or insert-after current review 
record type. 

— Signals no user response pending. 

— Signals no menu response pending. 

— Exits to restart interaction. 
If select by ID: 

— If review or insert not in progress, exits to issue WSU-0702. 

— If no PSB exists with the selected ID or if PSB does not support review-of 
or insert-after current review record type, exits to issue WSU-0707. 

— Selects identified PSB. 

— Signals no user response pending. 

— Signals no menu response pending. 

— Exits to restart interaction. 



Work Station Utility (WSU) 1-59 



Licensed Material— Property of IBM 



Routine 
DRGOOO 



External Call Description 

Master Data File Record GET Routine. 

(Expects FSB address in WRK0-WRK1.) 
(FDBGET) If not current, allocates FDB for specified master file. 

(KEYBLD) Builds key as specified in FSB. 

(GET) Gets master file data record. 

Returns to caller. 



DRPOOO 



(FDBGET) 

(KEYBLD) 
(PUT) 



(PUT) 



ABORT 



(BINDEC) 
(PUT) 

(PUT) 



(BINDEC) 
(PUT) 



Transaction /i\/f aster Data File Record PUT Routine. 

(Expects FSB address in WRKO-1.) 

Signals GET before PUT not required. 

Signals no PUT pending. 

If not current, allocates FDB for specified file. 

If master file record update: 

— Builds key as specified in FSB. 

— Puts master file data record. 

— Returns to caller. 

If record identifying indicator not saved (transaction file record last GET update): 

— Places Last GET relative record number in key area. 

— Puts transaction file data record. 

— Returns to caller. 

If insert mode (transaction file record insert): 

— If header record insert attempted. Aborts Session (12). 

— Signals insert has been done. 

— Reserves new work station data record. 

— Updates transaction pointers in COMMON. 

— Initializes trailer information. 

— Signals add pending. 

— Changes *RLNO to reserved next record. 

— Places relative record number in key area. 

— Puts transaction file data record. 

— Returns to caller. 

If review mode (transaction file record review update): 

— Places review relative record number in key area. 

— Puts transaction file data record. 

— Returns to caller. 

If enter mode (transaction file record add): 

— Reserves new workstation data record if an extra was not reserved already. 

— Initializes trailer information. 

— If appropriate, marks trailer as header data record. 

— Updates transaction pointers in COMMON. 

— Adjusts Last GET pointers to end of file. 

— Signals add pending. 

— Changes *RLNO to reserved next record. 

— Places relative record number in key area. 

— Puts transaction file data record. 

— Returns to caller. 
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Routine 



External Call 



Description 



REVOOO 
(continued) 



MSGWSU 
REV900 



(BINDEC) 



REV900 



INTRST 



(TXGET) 
(TXPUT) 
(TXGET) 
(TXPUT) 
(TXGET) 
(TXPUT) 



MSGWSU 
(WDBGET) 



MSGWSU 



(WDBPUT) 



(SAVRST) 



(CLRJDB) 



If command key 4 (begin insert): 

— If IN time or not RV time, exits to issue WSU-0702. 

— If no current review record RID address or insert attempted at end of chain, 
goes to erase format table and issue WSU-0704. 

— Updates transaction pointers in COMMON to prepare for insert. 

— Sets *RLNO to last reserved work station record. 

— Sets on IN indicator. 

— Signals IN time. 

— Signals mode message pending. 

— If no PSB supports insert after current review record type, goes to erase 
format table and issues WSU-0704. 

— Selects first PSB which supports insert after current review record type. 

— Signals no user response pending. 

— Signals no menu response pending. 

— Exits to restart interaction. 
If insert mode: 

— If insert was done, completes insert: 

Updates transaction file trailer in last inserted record 
(Next record = next review record). 
Updates transaction file trailer in next review record 
(Previous record = last inserted record). 
Updates transaction file trailer in current review record 
(Next record = first insert record). 
Signals no insert was done. 
Signals not IN time. 
If command key 3 (resume entry): 

— If not review mode, exits to issue WSU-0702. 

— Resumes enter mode: 

Restores alternate WDB (enter mode environment). (Signals not RV time 
and sets off CG, IN, and RV indicators.) 

— Signals mode message pending. 

— Signals review screen not saved. 

— Clears processing flags in all WCB key entries. 

— Returns to caller. 
Assumes review request: 

— If IJ, IW, ES, EW, or EJ time, exits to issue WSU-0702. 

— If not review mode, suspends enter mode: 

— Signals session suspended for review mode. 

— Saves alternate WDB (enter mode environment). 

— Clears indicator bytes 13-16. 

— Clears common work station level pointers. 

— If only one work station record reserved head, reserves new work station 
record. 

— Initializes transaction pointers in common for review. 

— Signals RV time. 

— Signals mode message pending. 

— Saves enter mode screen. 

— Clears processing flags in all WCB key entries. 

— Clears indicator bytes 00-12. 

— Zeros or blanks alternate work station level JDB fields. 

— Sets on RV indicator. 
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Routine 



External Call 



Description 



REVOOO 
(continued) 



MSGWSU 



MSGWSU 
(TXGET) 



(DECBIN) 

(TDRGET) 
REV900 



REV900 



REV900 



INTRST 



If command key 5 (page backward group): 

— If no header records, exits to issue WSU-0702. 

— Selects review previous header. 

If command key 6 (page forward group): 

— If no header records, exits to issue WSU-0702. 

— Reads transaction file records, starting at review next record, until header 
record found. 

— Selects found header record. 

If roll down function key (page backward record), selects review previous record. 

If roll up function key (page forward record), selects review next record. 

If review by record number (menu entry assumed), converts *RLRN to binary 

and selects that record. 
Gets selected data record. 
If record not found, initializes review pointers to end of chain. Clears current 

review record RID address, and goes to erase format table and issue WSU-0706. 

— Updates review record pointers. 
Updates Last GET record pointers. 

— If review record current group header or in current chain, sets on CG 
indicator; otherwise, sets off CG indicator. 

— If record type not identified, clears current review record RID address and 
goes to erase format table and issue WSU-0705. 

— Finds and saves current review record RID address. 

— If record type not reviewable, clears current review record RID address and 
goes to erase format table and issue WSU-0705. 

— Selects first PSB which supports review of record type. 

— Signals no user response pending. 

— Signals no menu response pending. 

— Exits to restart interaction. 



REV900 



MSGWSU 



Makes next PSB unselected. 

Makes current PSB undetermined. 

Signals no user response pending. 

Signals no menu response pending. 

Exits to erase format table and issue WSU-0704/0705/0706. 



CLROOO 



Job Data Block Clear Routine. 
(Expects normal/alternate indication in WRK11.) 

Initializes normal or alternate work station level JDB, blanks all fields, then places 
character zeros in individual arithmetic fields. 
Returns to caller. 
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ROUTINE CROSS-REFERENCE LIST 

Figure 1-6 shows how WSU execution routines call one 
another. For each routine, the module that contains it 
is listed in parentheses. 
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Routine Name 


Calls 


Called by 


ABORT 


INTEND 


ALOCAT 


(#WSXP) 




CSPEC 

DIVD 

DRIVER 

DRPUT 

GET 

IWSESS 

PUT 

REALOC 

RESP 

START 

TXGET 

TXPUT 

WFIO 

WSABC 


AFTCMP 


EXIT 


ALTCMP* 


(#WSX13) 




CSPEC 


ALOCAT 


ABORT 


CDBGET 


(#WSXP) 


CALL 


FDBGET 




DEALOC 


MDBGET 




EXIT 


TRNGET 




FREE 


WDBGET 




RLOCAT 


WDBPUT 




TRPOOL 




ALTCMP 


AFTCMP* 


CSPEC 


(#WSX13) 






AWSESS 


CALL 


INTEND 


(#WSX16) 


EWSESS 
MSGWSU 




BINDEC 


EXIT 


DRPUT 


(#WSX15) 




IWSESS 
REVIEW 



Routine Name 


Calls 


Called by 


CALL 


TRNGET 


ALOCAT 


(#WSXP) 




AWSESS 

CSPEC 

CDBGET 

DRGET 

DRPUT 

DRIVER 

EWSESS 

FDBGET 

GET 

INTBEG 

INTCMP 

INTEND 

INTRST 

IWSESS 

KEYBLD 

MDBGET 

MENU 

MSGWSU 

NRMLFN 

PUT 

PUTS 

REALOC 

RESP 

REVIEW 

SELECT 

TDRGET 

TRNGET 

TXGET 

TXPUT 

WDBGET 

WDBPUT 

WSABC 

WSID 



'This routine is not specifically called, but its code is shared. 



Figure 1-6 (Part 1 of 5). ROUTINE CROSS-REFERENCE CHART 
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Routine Name 


Calls 


Called by 


CLRJDB 


EXIT 


IWSESS 


(#WSX19) 




REVIEW 


CSPEC 


ABORT 


NRMLFN 


{#WSX05) 


AFTCMP 

ALTCMP 

ARRANGE 

CALL 

CDBGET 

DIVD 

DRGET 

DRPUT 

EXIT 

INTRST 

MULT 

MVR 

NFTCMP 

NLTCMP 

PUTS 

TDRGET 

TXGET 




DEALOC 


MOVE 


ALOCAT 


{#WSXP) 


TRPOOL 
WFIO 


REALOC 


DECBIN 


EXIT 


KEYBLD 


(^SX15) 




REVIEW 


DIVD 


EXIT 


CSPEC 


(#WSX12) 


ABORT 




DRGET 


CALL 


CSPEC 


(#WSX18) 


EXIT 
FDBGET 
GET 
KEYBLD 





Routine Name 


Calls 


Called by 


DRIVER 


ABORT 


INTBEG 


(#WSX10) 


CALL 

MENU 

MSGWSU 

NRMLFN 

PUTS 

RESP 

REVIEW 

SELECT 


INTCMP 




TRDRVR 

TRWSIO 

WDBGET 

WDBPUT 

WSABC 




DRPUT 


ABORT 


CSPEC 


(#WSX18) 


BINDEC 

CALL 

EXIT 

KEYBLD 

PUT 




EWSESS 


CALL 


AWSESS 


(#WSX09) 


INTCMP 

INTRST 

REALOC 

TXGET 

TXPUT 

WSIO 


(SELECT) 


MVR 


EXIT 


CSPEC 


(#WSX12) 






ARRANGE 


EXIT 


CSPEC 


(#WSX04) 






CDBGET 


ALOCAT 


CSPEC 


{#WSX08) 


CALL 
EXIT 
REALOC 
WFIO 


NRMLFN 



Figure 1-6 (Part 2 of 5). ROUTINE CROSS-REFERENCE CHART 
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Routine Name 


Calls 


Called by 


EXIT 


TRNGET 


ALOCAT 


(#WSX8) 




AFTCMP 

ARRANGE 

BINDEC 

CDBGET 

CLRJDB 

CSPEC 

DECBIN 

DIVD 

DRGET 

DRPUT 

FDBGET 

GET 

KEYBLD 

MDBGET 

MSGWSU 

MULT 

MVR 

NFTCMP 

PUT 

PUTS 

REALOC 

REVIEW 

SAVRST 

TDRGET 

TRDFIO 

TRDRVR 

TRPOOL 

TRWSIO 

TXGET 

TXPUT 

WDBGET 

WDBPUT 

WSABC 

WSIO 


FREE 


TRPOOL 


ALOCAT 


(#WSXP) 




REALOC 


GET 


ABORT 


DRGET 


{#WSX01 ) 


CALL 

EXIT 

INTCMP 

MSGWSU 

TRDFIO 


TDRGET 


INTBEG 


CALL 


START 


{#WSXP) 


DRIVER 





Routine Name 


Calls 


Called by 


INTCMP 


CALL 


EWSESS 


(#WSX7) 


DRIVER 


GET 

MSGWSU 

PUTS 


INTEND 


CALL 


ABORT 


{#WSXP) 


AWSESS 




INTRST 


CALL 


CSPEC 


(#WSXP) 


DRIVER 


EWSESS 

IWSESS 

MENU 

RESP 

REVIEW 

SELECT 


IWSESS 


ABORT 


SELECT 


(#WSX06) 


BINDEC 

CALL 

CLRJDB 

EWESS 

INTRST 

MSGWSU 

TXGET 

TXPUT 


WSABC 


KEYBLD 


CALL 


DRGET 


(#WSX18) 


DECBIN 
EXIT 


DRPUT 


MDBGET 


ALOCAT 


MSGWSU 


(#WSX03) 


CALL 
EXIT 
REALOC 
WFIO 




MENU 


CALL 


DRIVER 


(#WSX16) 


INTRST 
MSGWSU 
REVIEW 
SELECT 




MOVE 


RETURN 


DEALOC 


(#WSXP) 




RLOCAT 
WDBGET 
WDBPUT 



Figure 1-6 (Part 3 of 5). ROUTINE CROSS-REFEREIMCE CHART 



1-66 



Licensed Material— Property of IBM 



Routine Name 


Calls 


Called by 


MSGWSU 


CALL 


AWSESS 


(#WSX03) 


exit" 


DRIVER 




INTCMP 


GET 




MDBGET 


IWSESS 




WSIO 


MENU 

NRMLFN 

PUTS* 

RESP 

REVIEW 

SELECT 


MULT 


EXIT 


CSPEC 


(#WSX11) 






NFTCMP 


EXIT 


CSPEC 


(#WSX14) 




NLTCMP* 


NLTCMP 


NFTCMP* 


CSPEC 


(#WSX14) 






NRMLFN 


CALL 


DRIVER 


(#WSX08) 


CDBGET 

CSPEC 

MSGWSU 

PUTS 

SELECT 




PUT 


ABORT 


DRPUT 


(#WSX02) 


CALL 
EXIT 
TRDFIO 




PUTS 


CALL 


CSPEC 


(#WSX03) 


EXIT 


DRIVER 




INTCMP 


NRMLFN 




MSGWSU* ■ 






SAVRST 






WSIO 




REALOC 


ABORT 


CDBGET 


(#WSXP) 


CALL 


EWSESS 




DEALOC 


FDBGET 




EXIT 


GET 




FREE 


MDBGET 




RLOCAT 


TRNGET 




TRPOOL 


WDBGET 
WDBPUT 



Routine Name 


Calls 


Called by 


FDBGET 


ALOCAT 


DRGET 


(#WSX18) 


EXIT 


DRPUT 




CALL 


TDRGET 




REALOC 


TXGET 


RESP 


ABORT 


DRIVER 


(#WSX16) 


CALL 
INTRST 
MSGWSU 
SELECT 




REVIEW 


BINDEC 


DRIVER 


(#WSX19) 


CALL 


MENU 




CLRJDB 


SELECT 




DECBIN 






EXIT 






INTRST 






MSGWSU 






SAVRST 






TDRGET 






TXGET 






TXPUT 






WDBGET 






WDBPUT 




RLOCAT 


MOVE 


ALOCAT 


{#WSXP) 


SHIFT 
TRPOOL 


REALOC 


SELECT 


CALL 


DRIVER 


(^SX07) 


EWSESS 


MENU 




INTRST 


NRMLFN 




IWSESS 


RESP 




MSGWSU 






REVIEW 




SHIFT 


RETURN 


RLOCAT 


(#WSXP) 






TDRGET 


CALL 


CSPEC 


(#WSX18) 


EXIT 

FDBGET 

GET 


REVIEW 


TRDFIO 


EXIT 


GET 


{#WSXOO) 




PUT 

TXGET 

TXPUT 



*This routine is not specifically called, but its code is shared. 
Figure 1-6 (Part 4 of 5). ROUTINE CROSS-REFERENCE CHART 
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Routine Name 


Calls 


Called by 


TRDRVR 


EXIT 


DRIVER 


(#WSXOO) 






TRNGET 


ALOCAT 


CALL 


(#WSXP) 


CALL 
REALOC 


EXIT 


TRPOOL 


EXIT 


ALOCAT 


(#WSXP) 


RETURN 


DEALOC 
FREE 
REALOC 
RLOCAT 


TRWSIO 


EXIT 


DRIVER 


(#WSXOO) 




WSIO 


TXGET 


ABORT 


CSPEC 


(#WSX17) 


CALL 


EWSESS 




EXIT 


IWSESS 




FDBGET 


REVIEW 




TRDFIO 




SAVRST 


EXIT 


PUTS 


(#WSX03) 


WSIO* 


REVIEW 


TXPUT 


ABORT 


EWSESS 


(#WSX17) 


CALL 


IWSESS 




EXIT 


REVIEW 




TRDFIO 




WDBGET 


ALOCAT 


DRIVER 


(#WSX10) 


CALL 

EXIT 

MOVE 

REALOC 

WFIO 


REVIEW 


WDBPUT 


ALOCAT 


DRIVER 


(#WSX10) 


CALL 
EXIT 
MOVE 
REALOC 


REVIEW 


WFIO 


ABORT 


CDBGET 


(#WSXP) 


RETURN 


DEALOC 
MDBGET 
WDBGET 



*This routine is not specifically called, but its code is shared. 
Figure 1-6 (Part 5 of 5). ROUTINE CROSS-REFERENCE CHART 
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Routine Name 



WSABC 
(#WSX16) 



WSIO 

(#WSX03) 



Calls 



Called by 



ABORT 
CALL 
EXIT 
IWSESS . 

CALL 
EXIT 
TRWSIO 
WSABC 



DRIVER 
WSIO 



EWSESS 
MSWSU 
PUTS 
SAVRST' 



Licensed Material-Property of IBM 



EXTERNAL CALLS MADE BY EXECUTION ROUTINES 

Figure 1-7 lists the external calls made by the WSU execu- 
tion routines. 
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Routine 


External Call 


Explanation 


#WSXI1 






#WSXI1 


$FIND 


Find WSU message member 




$LOG 


Abort: WSU message member not found 




$INFO 


Modify JCB (WSU message member disk address) 




$INFO 


Modify JCB (user message member disk address) 




GETP 


Get partition end 




$INFO 


Get NEP attribute 




$INFO 


Get MRTMAX value 




FDIO 


Read object program control header 




$ALOC 


Allocate work station DTF 




$OPEN 


Open work station DTF 




$CLOS 


Close work station DTF 




$FIND 


Find#WSXI2 




$LOAD 


Load #WSXI2 




$XFER 






RFINDLIB 


Find library 




$FIND 


Find object member 




SYSIN 


Read sysin record (utility control statement) 




FDIO 


Read object program area sectors 




$INFO 


Get system date 




MSG 


Retrieve message 




$XFER 






RSLOG 


Abort job with appropriate MIC 


#WSXI2 






#WSXI2 


$ALOC 


Allocate master/transaction file 




$OPEN 


Open master/transaction file 




$ALOC 


Special allocate work file 




$OPEN 


Open work file 




$FIND 


Find #WSXP 




$LOAD 


Load #WSXP 




AFARW 


Get transaction file format 1 




DALOC 


Deallocate transaction file (if new and retain code not S or J) 




SALOC 


Reallocate transaction file old 




MSG 


Retrieve message 




$XFER 






RSLOG 


Abort job with appropriate MIC 


#WSXP 






START 


$FIND 


Find transient module object member 


CALL 


LOGTR 


Log trace entry for call to subroutine 


EXIT 


LOGTR 


Log trace entry for exit from subroutine 


ABORT 


LOGTR 


Log trace entry for abort session/job 




$LOG 


Abort: abort already in progress 




$LOG 


Abort session with appropriate MIC 


WFIO 


FDIO 


Perform work file I/O 


TRNGET 


$LOAD 


Perform transient module load 


TRPOOL 


LOGTR 


Log trace entry for pool storage request 


#WSXOO 






TRDRVR 


$TOD 


Get system time for driver trace entry 




LOGTR 


Log trace entry for driver interaction cycle 


TRWSIO 


LOGTR 


Log trace entry for work station I/O 


TRDFIO 


LOGTR 


Log trace entry for data file I/O 




LOGTR 


Log trace entry for master file key 




LOGTR 


Log trace entry for transaction file trailer 



Figure 1-7 (Part 1 of 2). EXTERNAL CALLS MADE BY EXECUTION ROUTINES 
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Routine 



External Call 



Explanation 



#WSX01 

GET 
#WSX02 

PUT 

#WSX03 

WSIO 
#WSX05 

CSPEC 
#WSX06 

IWSESS 
#WSX09 

EWSESS 



#WSX10 
DRIVER 

#WSX17 
TXGET 
TXPUT 



$GETD 

$GETD 
$PUTD 

$WSIO 

LOGTR 

$INFO 

$CLOS 

$EOJ 

$INFO 

$WSIO 

$GETD 
$PUTD 



Get data record for read 

Get data file record for update 
Put data file record 

Perform work station I/O 

Log trace entry for C-spec operation 

Get UPSI switches (U1-U8) 

Close data file DTFs at end-of-job 

Terminate job 

Put UPSI switches (U1-U8) 

Accept work station input 

Get transaction file control record 
Put transaction file control record 



Figure 1-7 (Part 1 of 2). EXTERNAL CALLS MADE BY EXECUTION ROUTINES 
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Directory 

This section identifies WSU modules so that quicl< refer- 
ences can be made to program listings and microfiche. 
Modules are listed alphabetically by name. Each entry 
in the list has the following information: 

• Module name 

• Routine name (if there are multiple routines in the 
module) 

• Descriptive name 

• Entry point 

• Major functions 
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Module 


Routine 




Name 


Name 


Descriptive Name 


#WSGAF 




Data field assignment phase 



#WSGAI 



#WSGAL 



Indicator assignment phase 



Program label assignment phase 



Major Functions 

Updates field name table with relative data field numbers 
and job data block displacements. Prints field name 
usage tables for data fields. 

Uses local copy of system indicator table to update 
indicator-referencing T, M, S, D, and C records with 
the corresponding mask/displacements. Prints indicator 
usage lists. 

Updates field name table with relative command data 
block numbers and data block displacements for program 
labels. 



#WSGAM 



Message assignment phase 



#WSGBF 
#WSGCD 

#WSGCH 
#WSGCS 

#WSGDS 

#WSGEP 



#WSGFO 



Field name table building phase 



Command data area building 
phase 



Control header building phase 



Command specification area 
building 



Data specification area 
building phase 



Execution procedure 
member generating phase 



Object program formatting 
phase 



Updates C records that have message-defining literals with 
assigned relative message numbers. Builds MIC table and 
updates C records that have message-referencing MIC 
numbers with assigned relative message numbers. Prints 
list of referenced MICs. 

Builds field name table from data field and program label 
definition/references on T, M, F, S, D, and C records. ' 

Formats the command data area from C records, 
GCSBDFSB, GCSBDRSD, and GCSBDPSB and puts the 
area in work file object at the preassigned location. 

Formats the control header from sections of GCOMMON 
and puts it in the first work file object sector. 

Formats the command specification area from C records 
and puts the area in the work file object at the preassigned 
location. 

Formats the data specification area from T, M, F, S, D, 
and C records and the system fields table and puts the 
area in the work file object at the preassigned location. 

Calculates the minimum execution region size. Formats 
the execution procedure statements and puts them in the 
new procedure member. Prints an execution region map 
and the OCL for the new procedure. 

Builds file and record type specification block displace- 
ment tables from T, M, I, and F records. Builds a process 
segment specification block displacement table and table 
of display attributes and field counts from S and D records. 
Determines total object size and assigns relative locations 
to individual object areas. 
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Module 
Name 

#WSGFS 



#WSGMD 



Routine 
Name 



Descriptive Name 

File specification area 
building phase 



Message data area 
building phase 



Major Functions 

Formats the file specification area from T, M, I, and F 
records and puts the area in the object work file at the 
preassigned location. 

Formats the message data area from C records and puts 
the area in the work file object at the preassigned 
location. 



#WSGML 



#WSGMS 



#WSGMT 



#WSGOB 

#WSGOM 
#WSGPS 

#WSGRF 



#WSGSS 



#WSGWF 



Message length 
assignment phase 



Message specification 
area building phase 



Diagnostic message text 
listing and cleanup phase 



Object program member 
generating phase 



WSU generator post-assign 
initialization phase 

Process specification area 
building phase 



Field data block 
resolution phase 



Screen specification area 
building phase 



WSU generator post-syntax 
initialization phase 



Builds tables from D records that describe display screen 
format field distribution. Determines the number of 
bytes allowed for message text on each display screen 
format. Then updates D records with assigned message 
lengths. Prints extended diagnostics. 

Formats the literal section of the message specification 
area from C records and puts this section in the work 
file object at the preassigned location. Formats the MIC 
section of the message specification area from C records 
and puts this section in the work file object after the 
literal section. 

Prints list of diagnostic message texts cross-referenced to 
error note numbers and severity codes. If an abort or 
terminal error has been signaled, #WSGMT abnormally 
terminates generation. 

Loads the library management PUT/GET sector processor, 
($MAPGS) and copies the Preformatted work file object 
to the new object member. 

Initializes the post-assign GCOMMON extension, overlaying 
assign-only code and data. 

Formats the process specification area from S records and 
GCSCRNTB and puts this area in the work file object at 
the preassigned location. 

Updates embedded field data blocks in T, M, F, S, D, and 
C records and system fields table with name definitions 
and relative number and displacement assignments from 
corresponding field name table entries. 

Formats the screen specification area from S and D 
records and GCSCRNTB and puts this area in the work 
file object at the preassigned location. 

Initializes the post-syntax GCOMMON extension, overlay- 
ing syntax-only code and data, and moves a copy of the 
system fields table into GCOMMON. 
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Module 
Name 

#WSGO 



Routine 
Name 



Descriptive Name 

WSU generator common 
initialization phase 



Major Functions 

initializes the generator's common data areas (GCOMMON, 
GCCHGEND, and GCSYNTAX). Prints source records up 
to first noncomment or end of file. 



#WSG1 



#WSG2 



#WSG3A 



J specification syntax 
checking phase 

T and M specification, 
F and I specification 
syntax checking phase 



S specification syntax 
checking phase 



Prints J specification and reads and prints all source 
records to the first T, M, S, D, or C specification or EOF. 

Prints records in source buffer and reads and prints T, M, 
F, and I specifications and all source records to the first 
S, D, or C specification or end of file. Puts T, M, I, and F 
records in the work file intermediate text. 

Prints record in source buffer and reads and prints S specifi- 
cations and all other source records to first D or C specifica- 
tion or end of file. Puts S record in work file intermediate 
text. 



#WSG3B 



D specification syntax 
checking phase 



Prints record in source buffer and reads and prints D 
specifications and all other source records to next C or S 
specification or end of file. Puts D records in work file 
intermediate text. 



#WSG4A 



#WSG4B 



C specification control level, 
conditioning indicators, 
factor 1 and resulting indicators 
syntax checking phase 

C specification operation, 
table, and continuation 
syntax phase 



Begins checking the syntax of C specifications. Puts 
special C and/or S records in the work file intermediate 
text. 



Completes syntax checking for table operations. Prints 
C specification and any continuation line and all other 
source records to next C, S, or D specification or end of 
file. Puts C record in work file intermediate text. 



#WSG4C 



C specification operation, 
MIC/message text, and 
continuation syntax checking 
phase 



Completes syntax checking for message operations. Prints 
C specification and reads and prints any continuation line 
and all other source records to next C, S, or D specification 
or end of file. Puts C record in work file intermediate 
text. 



#WSG4D 



#WSG5 



C specification operation, 
factor 2, result field, and 
half-adjust syntax checking 
phase 

File, record type, and 
processing level assignment 
phase 



Completes syntax checking for non message/table opera- 
tions. Prints C specifications and reads and prints all 
source records to next C, S, or D specification or end of 
file. Puts C record in work file intermediate text. 

Builds relational tables for file, and record type 
definitions. Updates C and S records with relative file 
and record type numbers and processing level codes. Prints 
extended diagnostics. 
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Module 


Routine 




Name 


Name 


Descriptive Name 


#WSG6 




Format assignment phase 



#WSG8 



#WSG9 



#WSXI1 



#WSXI2 



Operation code assignment 
phase 



SFGR source member 
generating phase 

WSU initialization 
phase (Part 1) 



WSU initialization 
phase (Part 2) 



Major Functions 

Builds relational table for format definitions. Updates C 
records with relative screen format numbers. Prints 
extended diagnostics. 

Prints unreferenced, multiply-defined and undefined field 
names. Prints extended diagnostics. Adjusts field-name- 
definition-dependent operation codes in C records. 

Formats SFGR S and D records and puts them in a new 
source member. 

Prepares the enviroment for WSU execution by trans- 
ferring the object program (OBJ) specification blocks to 
high storage permanent elements and opening the work 
station DTF. 

Prepares the environment for WSU execution by opening 
every data file DTF and allocating, opening, and formatting 
the work file, transferring object program data blocks and 
message member texts to pool-element-transient work file 
data blocks. 



#WSXP 



START 



WSU processing phase 

Processing initialization 
routine 



Contains initial load for low storage resident data/code. 

Completes initialization of low storage resident data areas. 
Cycles through low storage processors and transient 
routines serially dispatch interactions (for up to MRTMAX 
work stations). Randomly tends active/new display 
station requests until the end of work session process or 
completes for the only active display station (if non-NEP) 
or until the job ends, the job aborts, or an operator cancels 
the job. Secures generation/execution variables passed 
from initialization phase. Collects load information for all 
WSX transients, and formats pool element storage. 



CALL 


Call to subroutine 




processor 


EXIT 


Exit from subroutine 




processor 


TRNGET 


Transient-load-module 




get processor 


INTCMP 


Interaction complete/ 


INTRST 


restart/begin/end 


INTBEG 


processor 


INTEND 





Performs enter linkage for called subroutine, and fetches 
subroutine-containing transient if necessary. 

Performs return linkage for called subroutine, and fetches 
calling-routine-containing transient if necessary. 

Fetches specified transient module from WSX OBJ library 
to storage pool element. 

Dispatches work session driver to complete, restart, or 
begin interaction cycle for work station, or work session 
abort to end cycle. 
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Module 




Routine 


Name 




Name 


#WSXP 




ABORT 


(continued) 








WFIO 



#wsxoo 



#WSX01 



#WSX02 



Descriptive Name 

Abort session/job processor 
Work file I/O processor 

SHIFT Shift data block processor 

MOVE Move data block processor 



ALOCAT 



REALOC 



FREE 



RLOCAT 



DEALOC 



TRDRVR 

TRWSIO 

TRDFIO 



GET 



PUT 



Pool element allocation 
routine 

Pool element reallocation 
routine 

Free pool element creation/ 
expansion routine 

Pool element relocation 
routine 

Pool element deallocation 
routine 



WSU execution transient 
number 00 

Trace Driver R 

Trace work station I/O R 

Trace data file I/O R 

WSU execution transient 
number 01 

Data file record read 
routine 

WSU execution transient 
number 02 

Data file record write 
routine 



Major Functions 

Aborts job or session. 

Transfers specified number of sectors between work file 
and storage pool element. 

Shifts block of specified length from old starting address 
to new starting address. 

Moves block of specified length from old ending address 
to new ending address. 

Satisfies storage request involving new pool element. 
Satisfies storage request involving old pool element. 
Recovers unused space in allocated pool element. 
Rearranges relocatable pool elements. 



Performs special deallocation (saving WDB or indicating 
transient routines overlaid) and recovers deallocated pool 
element space. 



Logs a driver trace entry. 

Logs a work station trace entry. 

Logs data file trace entries. 



Reads record from specified data file, and suspends 
session if necessary to avoid record contention. 



Writes record to specified data file. 
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Module 


Routine 




Name 


Name 


Descriptive Name 


#WSX03 




WSU execution transient 
number 03 




TRPOOL 


Trace pool 




RETURN 


Return from subroutine 




PUTS 


Screen display put 
transient 




MSGWSU 


WSU message put 
transient 




SAVRST 


Screen save/restore transi 



Major Functions 



#WSX04 



WSIO Work station I/O processing 

transient 

MDBGET Message data block get 
transient 

WSU execution transient 
number 04 



Trace pool element functions if pool trace is active. 

Restores registers and returns to the subroutine's caller. 

Displays specified WSU/user format and selects any 
timely WSU message. 

Erases format if requested and displays specified WSU 
and/or user message or resets keyboard. 

Saves and restores screens for menu and review 
suspension. 

Relays request involving display screen or keyboard to 
work station data management (WSDM). 

Gets specified MDB text from work file into pool 
element. 



#WSX05 



ARANGE Alphameric range transient 

WSU execution transient 
number 05 



Processes the RANGE operation for alphameric factors. 
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CSPEC C specification processing 

transient 



Processes all C-specifications for current processing segment. 



CSPO200 
CSPO400 
CSP0600 
CSP0800 

CSPOAOO 

CSPOCOO 

CSPOEOO 

CSP1000 

CSP1200 

CSP1400 

CSP1600 

CSP1800 

CSP1A00 

CSP4000 

CSP4200 

CSO4400 

CSP4600 

CSP4800 



GETNH subprocessor. 
GETNR subprocessor. 
GETPR subprocessor. 
GETPH subprocessor. 
GET subprocessor. 
PUT subprocessor 
PUTS subprocessor. 
MSG subprocessor. 
IMSG subprocessor. 
EXSR subprocessor. 
SETON subprocessor. 
SETOF subprocessor. 
GOTO subprocessor. 
COMP (alpha) subprocessor. 
RANGE (alpha) subprocessor. 
MOVE subprocessor. 
MOVE L subprocessor. 
MOVE *BLANK subprocessor. 
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Module 


Routine 




Name 


Name 


Descriptive Name 


#WSX05 


CSP4A00 




(continued) 
#WSX06 


CSP4C00 
CSP6A00 
GSP6C00 
CSP6E00 
CSP7000 
CSP7200 
CSP7400 
CSP7600 
CSP7800 
CSP7A00 
CSP7C00 
CSP7E00 


WSU execution transient 
number 06 




IWSESS 


Work session initiate 
routine 



Major Functions 

COMP (alpha, literal table) subprocessor. 

COMP (alpha, field table) subprocessor. 

COMP (numeric, literal table) subprocessor. 

COMP (numeric, field table) subprocessor. 

MUTL subprocessor. 

DIVD subprocessor. 

MVR subprocessor. 

ZADD subprocessor. 

ZSUB subprocessor. 

ADD subprocessor. 

SUB subprocessor. 

RANGE (numeric) subprocessor. 

COMP (numeric) subprocessor. 



Performs sign-on initialization of transaction file and 
session activation, and initiates the IJ, IW, and the first 
sequence screen processing segments. 



#WSX07 



WSU execution transient 
number 07 



SELECT Processing segment selection 

routine 



Determines next segment to be processed in enter 
mode. 



#WSX08 



WSU execution transient 
number 08 



NRMLFN Normal function handling 
routine 



Handles automatic puts and program-defined processing 
within current segment. 



CDBGET Command data block 

get routine 



Gets specified CDB from work file and places it in the 
pool. 



#WSX09 



WSU execution transient 
number 09 



EWSESS 



Work session end routine 



Performs session deactivation and sign-off transaction file 
and work session termination and initiates the EWand EJ 
processing segments. 



#WSX10 



WSU execution transient 
number 10 



DRIVER 



Execution driver routine 



Drives interaction cycles, restores get-suspended session, 
accepts user, sets command/function key indicators, and 
selects appropriate routine for keyed response or request. 
Saves or restores normal WDB for cycle turnover. 
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Module 


Routine 




Name 


Name 


Descriptive Name 


#WSX10 


WDBGET 


Work station data block 


(continued) 




get routine 



#WSX11 



WDBPUT Work station data block 
put routine 



WSU execution transient 
number 11 



Major Functions 

Gets normal or alternate WDB from work file into pool 
element and transfers corresponding sections to work 
station level JDB fields, common indicators, and common 
data pointers. 

Puts work station level JDB fields, common indicators, 
and common data pointers into corresponding sections 
of normal or alternate WDB in pool element. 
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MULT 



Multiply routine 



Processes C-spec multiply operation. 



#WSX12 





WSU execution transient 




number 12 


DIVD 


Divide routine 


MVR 


MVR routine 



Processes C-spec divide operation. 

Processes C-spec MVR (move remainder) operation. 



#WSX13 



WSU execution transient 
number 13 



#WSX14 



ALTCMP Alphameric literal table 

compare routine 

AFTCMP Alphameric field table 

compare routine 

WSU execution transient 
number 14 



Processes C-spec table compare operation for table of 
alphameric literals. 

Processes C-spec table compare operation for table of 
alphameric fields. 



#WSX15 



NLTCMP Numeric literal table 

compare routine 

NFTCMP Numeric field table 

compare routine 

WSU execution transient 
number 15 



Processes C-spec table compare operation for table of 
numeric literals. 

Processes C-spec table compare operation for table of 
numeric fields. 



BINDEC Binary to decimal conversion 

routine 

DECBIN Decimal to binary conversion 

routine 



Converts specified binary value to decimal character 
equivalent to JDB. 

Converts decimal character value in JDB key area to 
binary equivalent in key area. 
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Module 


Routine 




Name 

#WSX16 


Name 


Descriptive Name 

WSU execution transient 
number 16 



Major Functions 



RESP WSU message response 

liandling routine 



Routes control to appropriate processor for response to 
WSU message. 



MENU Menu response handling 

routine 



Routes control to appropriate processor for response to 
MENU display. 



#WSX17 



AWSESS Work session abort 

routine 

WSABC Abnormal work station 

I/O handling routine 

WSU execution transient 
number 17 



Schedules abort of current work session, and notifies user 
when possible. 

Handles abnormal completion code from WSDM. Schedules 
appropriate WSU action. 



#WSX18 



TXGET Transaction file control 

record get routine 

TXPUT Transaction file control 

record put routine 

WSU execution transient 
number 18 



Gets trailer information from transaction file record. 



Updates trailer information in transaction file record. 



TDRGET Transaction file record 
get transient 

DRGET Master file record get 

transient 



Performs I/O for C-spec or review of GETPH, GETPR, 
GETNH, or GETNR operation. 

Performs I/O for GET C-spec operation. 



DRPUT Transaction/master file 

record put transient 

FDBGET File data block get 

transient 



Performs I/O for C-spec operation. Formats trailer 
information transaction file adds and inserts. 

Allocates FOB pool element. 



KEYBLD Master file key building 

transient 



Builds master file key in key area. 



#WSX19 



WSU execution transient 
number 19 



REVIEW Review mode processing 

transient 



Handles review mode processing requests. 



CLRJDB Job data block clear 

transient 



Zeros or blanks all normal or alternate work station level 
JOB fields. 
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Data Areas 

Figure 1-8 contains a list of the WSU execution data areas 
and a description of how the execution routines reference 
or modify them. Refer to Appendix H of the Data Areas 
and Diagnostic Aids Handbool< for explanations of these 
data areas. 
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Legend: 

— Area cleared, zeroed, or blanked 

1 — Area copied from 

2 — Area copied into 

3 — Area loaded or read into 

4 — Area written from 

5 — Area read into and/or written from 

6 — Field in area extracted from 

7 — Field in area extracted into, converted/edited 
C — Area created (allocated/made addressable) 

D — Area destroyed 

R — Field in area referenced, no field modified 

M — Field in area modified 

• — Field in area assumed overlaid 

- — Area passed at service interface, no field referenced 

* — Individual fields cross-referenced elsewhere 

Notes: 



4. I 



Some labels locate field ends (for example, RLOCWRK). 
Some fields overlap (for example, KEYAREA, CSPWRK, EDITJ). 

In general, . . . WRK areas lose integrity upon exit from any associated routine. Exceptions are the use of CSPWRK by 
DIVD to pass information about the remainder to CSPEC subroutine MVR and the use of KEYAREA in the interfaces 
to GET, PUT, and TXPUT transients and the use of WRKIOB in the interface to WFIO. 

n general, WRK. . labels are used for work areas not involved in any transient interfaces. The same fields, when 
involved in transient interfaces, are referenced by descriptive names (for example, TX#. . .). However, there are 
several exceptions. For example: 
WRK10-11 - User-selected format ID (review) 
WRKOO-01 - PSB address (PUTS) 
WRKOO-01 - MSB address (MDBGET) 
WRKOO-01 - DSB address (BINDEC) 
WRKOO-01 - DSB address (DECBIN) 
WRKOO-01 - FSB address (FDBGET) 

WRK01 - X'80' to identify alternate JDB request (CLRJDB) 
WRK01 - X'80' to identify alternate WDB request (WDBGET/WDBPUT) 



Figure 1-8 (Part 3 of 3). Data Area Usage 
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Diagnostic Aids 

Figure 1-9 lists the terminal errors that can occur during 
execution and identifies the module that detects each 
error. 
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#WSXI1 0617 WSU execution message member not found 

0607 First entry on first sysin record not OCL verb 

0608 WSX verb invalid 

0609 END verb invalid 

0629 Invalid trace parameter 

0614 User object program member name missing 

0615 User message member name missing 

0616 User format member name missing (not specified with library name in OCL) 
0602 I/O error reading object program control header 

0627 FSA missing from object program 

0628 D3A missing from object program 

0635 PSA missing from object program 

0630 FSA format error, invalid block identifier 

0616 User format member name missing (not defaulted in control header) 

0622 Object program library not found 

0623 Message library not found 

0624 Format library not found 

0618 User object program member not found 

0619 User message member not found 

0600 Unexpected SYSIN EOF 

0601 Unrecognized SYSIN I/O return code 
0606 Missing '//' on SYSIN record 

0605 Null OCL statement 

0604 Keyword/parameter/verb on OCL statement too long 

0610 OCL parameter not followed by ' 'or',' 

0633 Invalid character in OCL parameter 

061 1 OCL keyword not followed by '-' 

0612 Unrecognized WSX statement keyword 

0613 Duplicate WSX statement keyword 

0602 I/O error reading object program specification block or C-spec data block sector(s) 

0625 DSA format error, not enough system fields 

0634 Insufficient region size 

0603 Unable to retrieve WSU message 

0636 Unable to allocate transaction file 
#WSXI2 0631 Unable to allocate execution work file 

0602 I/O error reading object program MDA sector 

0603 Unable to retrieve WSU message 
0632 Unable to retrieve user message 

#WSXP 0802 Job aborted (no current workstation) 

0802 Job aborted (recursive abort for current work station) 

Figure 1-9 (Part 1 of 2). Execution Terminal Errors 
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Job/Session Abortion 

(for last work station for non-NEP or normally-ending job) 
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21 


TXPUT 
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DRPUT 
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Abnormal work file I/O completion 

Size requested in SRB exceeds pool maximum 

Invalid SRB (attribute, priority, data pointer) or previous relocation pending 

Invalid relocation request (deallocation for free, first, or last element) (set nondeallocatable/ 

deallocatable attribute for nonrelocatable element, etc.) 

Unable to find transient module 

Unable to get record, I/O error 

Unable to get record, invalid key 

Record not found, and no not-found indicator 

Transaction file relative record number overflow 

Put requested, but no put pending 

Key for put does not match key for pending put 

Unable to put record, update (key) error 

Unable to get record, I/O error 

Unable to get transaction file record, past extent 

Unable to put record, I/O error 

Invalid operation code 

No inactive session available 

Invalid work station control record ID 

No active session and last session aborted 

No nonsuspended sessions (deadlock) 

Divide by 

Unrecognized MIC for pending response 

No current session, shutdown requested 

No current session and invite input failed 

Permanent work station I/O error 

Work station released by operator or offline 

Unspecified work station I/O error 

Unable to get transaction file record 

Out of extent on transaction file GET operation 

Record type invalid for job control get 

Record type invalid for session control get 

Record type invalid for noncontrol get 

Data record not marked with work station ID 

Unable to put transaction file record 

Header record insertion attempted 



Normal Session Completion 

(for last work station for non-NEP job) 

Figure 1-9 (Part 2 of 2). Execution Terminal Errors 
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WSU PLM Index 



#WSGAF (data field assignment phase) 

directory 1-73 
#WSGAI (indicator assignment phase) 

directory 1-73 
^WSGAL (program label assignment phase) 

directory 1-73 
#\NSG/\M (message assignment phase) 

directory 1-73 

#WSGBF (field name table building phase) 

directory 1-73 
#WSGCD (command data area building phase) 

directory 1-73 
#WSGCH (control header building phase) 

directory 1-73 
#WSGCS (command specification area building) 

directory 1-73 
T^SGDS (data specification area building phase) 

directory 1-73 
#WSGEP (execution procedure member generating phase) 

directory 1-73 
#WSGFS (file specification area building phase) 

directory 1-73 
#WSGFO (object program formatting phase) 

directory 1-73 
#WSGI1 (WSU initialization phase, part 1) 

description 1-36 

directory 1-76 
#WSGI2 (WSU initialization phase, part 2) 

description 1-37 

directory 1-76 
#WSGMD (message data area building phase) 

directory 1-74 
#WSGML (message length assignment phase) 

directory 1-74 
#WSGMS (message specification area building phase) 

directory 1-74 
W/VSGMT (diagnostic message text listing and clean up phase) 

directory 1-74 
#WSGOB (object program member generating phase) 

directory 1-74 
#WSGOM (WSU generator post assign initialization phase) 

directory 1-74 
#WSGPS (process specification area building phase) 

directory 1-74 
#WSGRF (file data block resolution phase) 

directory 1-74 
#WSGSS (screen specification area building phase) 

directory 1-74 
#WSGWF (WSU generator post syntax initialization) 

directory 1-74 
#WSGO (WSU generator common initialization phase) 

directory 1-75 
#WSG1 (J specification syntax checking phase) 

directory 1-75 
#WSG2 (T and M, F and I specification syntax checking phase) 

directory 1-75 
#WSG3A (S specification syntax checking phase) 

directory 1-75 



#WSG3B (D specification syntax checking phase) 

directory 1-75 
#WSG4A (C specification control level, conditioning indicators, 
factor 1 and resulting indicators syntax checking phase) 

directory 1-75 
#WSG4B (C specification operation, table, and continuation syntax 
checking phase) 

directory 1-75 
#WSG4C (C specification operation, MIC/message text, and 
continuation syntax checking phase) 

directory 1-75 
#WSG4D (C specification operation, factor 2, result field and 
half-adjust syntax checking phase) 

directory 1-75 
#\NSG5 (file, record type, and processing level assignment phase) 

directory 1-75 
#WSG6 (format assignment phase) 

directory 1-76 
#WSG8 (operation code assignment phase) 

directory 1-76 
#\NSG9 (SPGR source member generation phase) 

directory 1-76 
#WSXP (WSU processing phase) 

description 1-41 

directory 1-76 
#WSX01 (WSU execution transient number 1) 

description 1-41 

directory 1-77 
#WSX02 (WSU execution transient number 2) 

description 1-42 

directory 1-77 
#WSX03 (WSU execution transient number 3) 

description 1-43 

directory 1-78 
#WSX04 (WSU execution transient number 4) 

description 1-45 

directory 1-78 
#WSX05 (WSU execution transient number 5) 

description 1-45 

directory 1-78 
#WSX06 (WSU execution transient number 6) 

description 1-49 

directory 1-79 
#WSX07 (WSU execution transient number 7) 

description 1-50 

directory 1-79 
#WSX08 (WSU execution transient number 8) 

description 1-51 

directory 1-79 
#WSX09 (WSU execution transient number 9) 

description 1-52 

directory 1-79 
#WSX10 (WSU execution transient number 10) 

description 1-53 

directory 1-79 
#WSX1 1 (WSU execution transient number 1 1 ) 

description 1-55 

directory 1-80 
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#WSX12(WSU 
description 
directory 1 

#WSX13 (WSU 
description 
directory 1 

#WSX14 (WSU 
description 
directory 1 

#WSX15(WSU 
description 
directory 1 

#WSX16 (WSU 
description 
directory 1 

#WSX17 (WSU 
description 
directory 1 

#WSX18(WSU 
description 
directory 1 

#WSX19(WSU 
description 
directory 1 



execution transient number 12) 

1-55 
-80 
execution transient number 13) 

1-55 
-80 
execution transient number 14) 

1-55 
-80 
execution transient number 15) 

1-56 
-80 
execution transient number 16) 

1-56 
-81 
execution transient number 17) 

1-58 
-81 
execution transient number 18) 

1-58 
-81 
execution transient number 19) 

1-59 
-81 



abnormal worl< station I/O handling transient (WSABC) 

directory 1-81 
ABORT (abort session/job processor) 

description 1-38 

directory 1-77 
abort session/job processor (ABORT) 

description 1-38 

directory 1-77 
AFTCOMP (alphameric field table compare transient) 

description 1-55 

directory 1-80 
ALOCAT (pool element allocation transient) 

description 1-39 

directory 1-77 
alphameric field table compare transient (AFTCOMP) 

description 1-55 

directory 1-80 
alphameric range transient (ARRANGE) 

description 1-45 

directory 1-78 
alphameric literal table compare transient (ALTCMP) 

description 1-55 

directory 1-80 
ALTCMP (alphameric literal table compare transient) 

description 1-55 

directory 1-80 
ARRANGE (alphameric range transient) 

description 1-45 

directory 1-78 
AWSESS (work session abort transient) 

description 1-57 

directory 1-81 



binary to decimal conversion transient (BINOEC) 

description 1-56 

directory 1-80 
BINDEC (binary to decimal conversion transient) 

description 1-56 

directory 1-80 



C specification control level, conditioning indicators, factor 1 
and resulting indicators syntax checking phase (^/VSG4A) 

directory 1-75 
C specification operation, factor 2, result field and half-adjust 
syntax checking phase (#/\/SG4D) 

directory 1-75 
C specification operation, MIC/message text, and continuation 
syntax checking phase (t^SG4C) 

directory 1-75 
C specification operation, table« and continuation syntax checking 
phase (#/VSG4B) 

directory 1-75 
C specification processing transient (CSPEC) 

description 1-45 

directory 1-78 
CALL (call to subroutine processor) 

description 1-38 

directory 1-76 
call to subroutine processor (CALL) 

description 1-38 

directory 1-76 
CLRJDB (job data block clear transient) 

description 1-62 

directory 1-81 
command data area building phase (^A/VSGCD) 

directory 1-73 
command specification area building (^^SGCS) 

directory 1-73 
control header building phase (#/\/SGCH) 

directory 1-73 
CSPEC (C specification processing transient) 

description 1-45 

directory 1-78 



D specification syntax checking phase (#/VSG3B) 

directory 1-75 
data areas usage 1-82 
data field assignment phase (i^SGAF) 

directory 1-73 
data file record read transient (GET) 

description 1-41 

directory 1-77 
data file record write transient (PUT) 

description 1-42 

directory 1-77 
data specification area building phase (^AfSGDS) 

directory 1-73 
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DEALOC (pool element deallocation transient) 

description 1-40 

directory 1-77 
DECBIN (decimal to binary conversion transient) 

description 1-56 

directory 1-80 
decimal to binary conversion transient (DECBIN) 

description 1-56 

directory 1-80 
diagnostic aids 1-86 
diagnostic message text listing and clean up phase (^^SGMT) 

directory 1-74 
DIVD (divide transient) 

description 1-55 

directory 1-80 
divide transient (DIVD) 

description 1-55 

directory 1-80 
DRGET (master file record get transient) 

description 1-60 

directory 1-81 
DRIVER (execution driver transient) 

description 1-53 

directory 1-79 



EWSESS (work session end transient) 

description 1-52 

directory 1-79 
execution driver transient (DRIVER) 

description 1-53 

directory 1-79 
execution procedure member generating phase (i^SGEP) 

directory 1-73 
EXIT (exit from subroutine processor) 

description 1-38 

directory 1-76 
exit from subroutine processor (EXIT) 

description 1-38 

directory 1-76 
external call summary 1-69 



F and I specification syntax checking phase (i^SG2) 

directory 1-75 
FDBGET (file data block get transient) 

description 1-59 

directory 1-81 
file data block get transient (FDBGET) 

description 1-59 

directory 1-81 
file specification area building phase (i^SGFS) 

directory 1-74 
file, record type, and processing level assignment phase (#/VSG5) 

directory 1-75 
file data block resolution phase (^WSGRF) 

directory 1-74 
format assignment phase (^^SG6) 

directory 1-76 
FREE (free pool element creation/expansion transient) 

description 1-40 

directory 1-77 



free pool element creation/expansion transient (FREE) 
description 1-40 
directory 1-77 



GET (data file record read transient) 
description 1-41 
directory 1-77 



hierarchy diagram 1-28 



indicator assignment phase (#/\/SGAI) 

directory 1-73 
INTBEG (interaction begin) 

description 1-38 

directory 1-76 
INTCMP (interaction complete) 

description 1-38 

directory 1-76 
INTEND (interaction end) 

description 1-38 

directory 1-76 
interaction begin (INTBEG) 

description 1-38 

directory 1-76 
interaction complete (INTCMP) 

description 1-38 

directory 1-76 
interaction end (INTEND) 

description 1-38 

directory 1-76 
interaction restart (INTRST) 

description 1-38 

directory 1-76 
INTRST (interaction restart) 

description 1-38 

directory 1-76 
IWSESS (work session initiate transient) 

description 1-49 

directory 1-79 



J specification syntax checking phase (#/VSGl) 

directory 1-75 
job data block clear transient (CLRJDB) 

description 1-62 

directory 1-81 



KEYBLD (master file key building transient) 
description 1-59 
directory 1-81 
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master file key building transient (KEYBLD) 

description 1-59 ^ 

directory 1-81 f ^ 

master file record get transient (DRGET) 

description 1-60 

directory 1-81 
MDBGET (message data block get transient) 

description 1-45 
MENU (menu response handling transient) 

description 1-57 

directory 1-81 
menu response handling transient (MENU) 

description 1-57 

directory 1-81 
message assignment phase (^WSGAM) 

directory 1-73 
message data area building phase (^M/SGMD) 

directory 1-74 
message data block get transient (MDBGET) 

description 1-45 
message length assignment phase (^A/VSGML) 

directory 1-74 
message specification area building phase (#/ySGMS) 

directory 1-74 
module flow diagram 

execution 1-18 

generation 1-17 
MOVE (move data block processor) 

description 1-39 

directory 1-77 
move data block processor (MOVE) 

description 1-39 

directory 1-77 
MSGWSU (WSU message put transient) 

description 1-43 

directory 1-78 
MULT (multiply transient) 

description 1-55 

directory 1-80 
multiply transient (MULT) 

description 1-55 

directory 1-80 
MVR (MVR transient) 

directory 1-80 
MVR transient (MVR) 

directory 1-80 



NFTCMP (numeric field table compare transient) 

description 1-55 

directory 1-80 
NLTCMP (numeric literal table compare transient) 

description 1-55 

directory 1-80 
normal function handling transient (NRMLFN) 

description 1-51 

directory 1-79 
NRMLFN (normal function handling transient) 

description 1-51 

directory 1-79 
numeric field table compare transient (NFTCMP) 

description 1-55 

directory 1-80 
numeric literal table compare transient (NLTCMP) 

description 1-55 

directory 1-80 



object program formatting phase (#/VSGFO) 

directory 1-73 
object program member generating phase (#A/SGOB) 

directory 1-74 
operation code assignment phase (#A/SG8) 

directory 1-76 



pool element allocation transient (ALOCAT) 

description 1-39 

directory 1-77 
pool element deallocation transient (DEALOC) 

description 1-40 

directory 1-77 
pool element reallocation transient (REALOC) 

description 1-40 

directory 1-77 
pool element relocation transient (RLOCAT) 

directory 1-77 
process specification area building phase (#/VSGPS) 

directory 1-74 
processing segment selection transient (SELECT) 

description 1-50 

directory 1-79 
program label assignment phase (#WSGAL) 

directory 1-73 
PUT (data file record write transient) 

description 1-42 

directory 1-77 
PUTS (screen display put transient) 

directory 1-78 



REALOC (pool element reallocation transient) 

description 1-40 

directory 1-77 
RESP (WSU message response handling transient) 

description 1-56 

directory 1-81 
REVIEW (review mode processing transient) 

description 1-59 

directory 1-81 
review mode processing transient (REVIEW) 

description 1-59 

directory 1-81 
RLOCAT (pool element relocation transient) 

directory 1-77 



S specification syntax checking phase (^^SG3A) 

directory 1-75 
SAVRST (screen save/restore transient) 

description 1-44 

directory 1-78 
screen display put transient (PUTS) 

directory 1-78 
screen save/restore transient (SAVRST) 

description 1-44 

directory 1-78 
screen specification area building phase (^/VSGSS) 

directory 1-74 



1-92 



Licensed Material— Property of IBM 



SELECT (processing segment selection transient) 

description 1-50 

directory 1-79 
SHIFT (shift data block processor) 

description 1-39 

directory 1-77 
shift data block processor (SHIFT) 

description 1-39 

directory 1-77 
SPGR source member generation phase (t^SG9) 

directory 1-76 



T and M specification syntax checking phase (^^SG2) 

directory 1-75 
TDRGET (transaction file record get transient) 

description 1-58 

directory 1-81 
transaction file control record get transient (TXGET) 

description 1-58 

directory 1-81 
transaction file control record put transient (TXPUT) 

description 1-58 

directory 1-81 
transaction file record get transient (TDRGET) 

description 1-58 

directory 1-81 
transient-load-module get processor (TRNGET) 

description 1-38 

directory 1-76 
TRNGET (transient-load-module get processor) 

description 1-38 

directory 1-76 
TXGET (transaction file control record get transient) 

description 1-58 

directory 1-81 
TXPUT (transaction file control record put transient) 

description 1-58 

directory 1-81 



WDBGET (work station data block get transient) 

description 1-54 

directory 1-80 
WDBPUT (work station data block put transient) 

description 1-54 

directory 1-80 
WFIO (work file I/O processor) 

description 1-39 

directory 1-77 
work file I/O processor (WFIO) 

description 1-39 

directory 1-77 
work session abort transient (AWSESS) 

description 1-57 

directory 1-81 
work session end transient (EWSESS) 

description 1-52 

directory 1-79 
work session initiate transient (IWSESS) 

description 1-49 

directory 1-79 



work station data block get transient (WDBGET) 

description 1-54 

directory 1-80 
work station data block put transient (WDBPUT) 

description 1-54 

directory 1-80 
WSABC (abnormal work station I/O handling transient) 

directory 1-81 
WSU execution logic flow 

description 1-18 
WSU execution transient number 1 (#/VSX01) 

description 1-41 

directory 1-77 
WSU execution transient number 10 (#/VSX10) 

description 1-53 

directory 1-79 
WSU execution transient number 1 1 (#/VSX1 1) 

description 1-55 

directory 1-80 
WSU execution transient number 12 (#/\/SX12) 

description 1-55 

directory 1-80 
WSU execution transient number 13 (#/VSX13) 

description 1-55 

directory 1-80 
WSU execution transient number 14 (#/\/SX14) 

description 1-55 

directory 1-80 
WSU execution transient number 15 (#/VSX15) 

description 1-56 

directory 1-80 
WSU execution transient number 16 (#/\/SX16) 

description 1-56 

directory 1-81 
WSU execution transient number 17 (#/\/SX17) 

description 1-58 

directory 1-81 
WSU execution transient number 18 (#/VSX18) 

description 1-58 

directory 1-81 
WSU execution transient number 19 (#/VSX19) 

description 1-59 

directory 1-81 
WSU execution transient number 2 (#/VSX02) 

description 1-42 

directory 1-77 
WSU execution transient number 3 (^SX03) 

description 1-43 

directory 1-78 
WSU execution transient number 4 (#A/SX04) 

description 1-45 

directory 1-78 
WSU execution transient number 5 (t^SX05) 

description 1-45 

directory 1-78 
WSU execution transient number 9 (^^SX09) 

description 1-52 

directory 1-79 
WSU generator common initialization phase (^A/VSGO) 

directory 1-75 
WSU generator post assign initialization phase (^^SGOM) 

directory 1-74 
WSU generator post syntax initialization (#A/SGWF) 

directory 1-74 
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WSU initialization piiase, part 1 (#/VSGI1) 

description 1-36 

directory 1-76 
WSU initialization phase, part 2 (#/\/SGI2) 

description 1-37 

directory 1-76 
WSU message put transient (MSGWSU) 

description 1-43 

directory 1-78 
WSU message response handling transient (RESP) 

description 1-56 

directory 1-81 
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Chapter 2. Screen Design Aid 



Introduction 

The screen design aid (SDA) portion of the utilities program 
product provides a convenient method of creating and 
maintaining: 

o SFGR source specifications 

o IVIenu build message member source statements 

A skeleton RPG II program can also be created from an 
SFGR source member using SDA. 

The SDA allows the System/34 user to: 

o Create, add, update, or delete an entire SFGR source 
member format. 

o Display the formats in an SFGR object member 
(individually, all, or list). 

o Insert, delete, update, and duplicate the actual source 
statements in an SFGR source member using SEU. 

o Create or update menu build source. 

® Create an RPG II skeleton program containing related 
display station specifications. 

o Display help text to assist the user. 

o Recover user data if the system terminates abnormally. 

HOW THE PROGRAM WORKS 

The SDA user initiates all functions except help by entering 
the SDA command and applicable parameters. SDA then 
calls the option selection module to allow the user to select 
which function is to be performed and to perform the 
parameter diagnostics. 

When a valid option is selected, a load module is selected 
to perform that function. Each load module determines 
the specific action to be performed based on SYSLOG 
prompting and formatted input. 

/Mote: The library referred to in this discussion is the 
system library unless a user library is specified on the SDA 
command. 



PHYSICAL CHARACTERISTICS 

SDA is composed of 45 library members, 9 executable load 
modules, 23 load members, and 13 procedures. 

The Directory section in this chapter explains the 9 
executable load modules. 



Load Members 




#SA#M1 


SDA message load member 


#SASP 


SDA menu syntax checking load module 


#SA@CU 


formats for #SAMN and ^ACU 


#SA@DS 


formats for #SADS 


#SA@DP 


formats for #SADP 


#SA@HP 


formats for #SAHP 


#SA@RC 


formats for #SARC 


#SA@RP 


formats for #SARP 


#SA@ME 


formats for #SAME 


#SAP1 


reserved for expansion 


#SAP2 


reserved for expansion 


#SAP3 


reserved for expansion 


#SAP4 


reserved for expansion 


#SAP5 


reserved for expansion 


#SAP6 


reserved for expansion 


#SAP7 


reserved for expansion 


#SAP8 


reserved for expansion 


#SAP9 


reserved for expansion 


#SAPA 


reserved for expansion 


#SAPB 


reserved for expansion 


#SAPC 


reserved for expansion 


#SAPD 


reserved for expansion 


#SAPE 


reserved for expansion 
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Procedure Members 

SDA parameter substitution. 

SDAH displays help text. 

SDALOAD loads SDA into #LIBRARY. 
SDASAVE saves SDA on diskette. 
SDADROP deletes SDA from #LIBRARY or a 

specified library. 
SDA1 executes code to create, add, or update 

total formats. 
SDA2 executes code to delete entire formats or 

manipulate SFGR statements directly. 
SDA3 displays formats in an SFGR load 

module. 
SDA5 executes code to create or update menu 

source statements. 
SDA6 executes $SFGR to generate a new 

SFGR load module. 
SDA7 executes code to build a skeleton RPG II 

display station program. 
SDA8 performs user recovery. 

SDA9 initiates all SDA functions except help 

text and recovery. This procedure routes 

activity to the proper subprocedure. 



I/O STORAGE REQUIREMENTS 

SDA is designed to operate in 14K (14,336) bytes of main 
storage. 



SYSTEM CONFIGURATION 

SDA runs on all models of the System/34. SDA requires 
SEU to support the update source function. 



INPUT/OUTPUT 

After the user signs on SDA, input to the program consists 
of: 

• A copy of the selected member in the SDA work file 
if the member exists in a library 

• Responses to SDA prompts 

• Data entered from the keyboard if the user enters or 
updates SDA statements 

Output from SDA is: 

• A new or changed member in the specified library 

• Required messages 

• Selected printed statements if the print option was used 

• An example of the screen image and listing of SFGR 
source produced when creating, adding, or updating 
entire formats 
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Method of Operation 



From: Keyboard 



INPUT 



SDA command 

Procedure parameter 
save area in work 
station worl< area 

Option selected 




PROCESS 



> 



[■ Display the SDA option menu. 

Q Process option to set external switches to 
execute next SDA module. 

bJ Perform diagnostic checking of parameters. 

Q Set up local communications area. 



> 




OUTPUT 



Option menu 

External switches 
(U1-U8) 

Local communications 
area 



To: Applicable Module 



DESCRIPTION 



MODULE/ 
ROUTINE 



By selecting a menu option the user chooses the function within SDA to perform, if an incorrect option is 
selected, the menu is redisplayed. 

External switches (U1-U8) are set and interpreted by the OCL to execute the correct module for the 
selected function. 

Checks for syntax and verifies that libraries exist for each parameter. If OCL is used, the module prompts 
for the necessary parameters. 

Data is passed to affected modules in the local communications area in the PPSA layout. 



#SAMN 



Diagram 2-1. SDA Mainline Router (i$(SAMN) 
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From: #SAMN 




INPUT 



External switches 
(U1-U8) 

Local communications 
area 

Screen prompts 

SFGR module 



PROCESS 



Retrieve external switches and local data. 
Perform (a) create, (b) add, and (b) 
update activity. 



> 




OUTPUT MM 

Place source in 
library 

Work file 

Screen prompts 



To: SFGR or User 



DESCRIPTION 



MODULE/ 
ROUTINE 



a. The create screen sequence: 

• Prompts for S specification information. 

• Provides blank screen to compose screen image. 

• Prompts for field attributes. 

• Prompts for overriding attributes if requested in step c. 

• Prints the image of the screen composed in step b. 

b. The add function is the same as create, except the existing source is copied into the work file first. 

c. The update function prompts the user to process specific formats or displays the format name encountered 
so the user can decide to update. Update rebuilds the screen image and returns to the create sequence at 
step c. 



#SACU 



Diagram 2-2. SDA Total Format Create/Add/Update (#SACU) 
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From: #SAMN 



INPUT 



External switches 
(U1-U8) 

Local communication 
area 

Screen prompts 

SFGR source 




PROCESS 



> 



Retrieve external switches and local data. 



Perform delete or actual source statement 
processing activity. 



> 




OUTPUT 



Replace source in 
library 

Disk work file 

Screen prompts 



To: SFGR or User 



DESCRIPTION 



MODULE/ 
ROUTINE 



Delete function: 

• Prompts the user to scan for specific formats, and if selected the user enters the format name to scan for. 
The format name (if found) is displayed and the user can delete it (response to YES/NO prompt). 

• If no scan is desired each format encountered is displayed by name and deleted or not as described 
preceding. 

Update source function uses SEU with SDA provided formats. 



#8 ADS 



Diagram 2-3. SDA Format Delete (j$<SADS) 
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INPUT 



SFGR load member 
Screen prompts 



From: #SAMN 

■ PROCESS 




Display formats in specified SFGR load 
member. 



> 




OUTPUT 



Screen prompts 
Screen displays 



To: User 



DESCRIPTION 



MODULE/ 
ROUTINE 



The user can have: 

• A list of all the formats in an SFGR load member displayed. 
O A specific format in an SFGR load member displayed. 

• All of the formats in an SFGR load member displayed. 

Note: While a format is being displayed, the user can enter data into it and the format will act as if displayed 
by the user's program. 



#SADP 



Diagram 2-4. SDA Display Function (jifSADP) 
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■INPUT 



Menu option 



From: #SAMN 

■i PROCESS 




> 



Display, create, or update option menu. 
User selects option to create or update. 



> 




OUTPUT 



External switch 
(U1-U8) setting 



To: #SAMB 



DESCRIPTION 



MODULE/ 
ROUTINE 



Display, create, or update screen. 

Based on user selection, turn on external switch 1 or 2. 



#SAMA 



Diagram 2-5. SDA Interactive Menu Build (#SAMA) 
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INPUT 



Utility control 
statement (MENU) 

Source statements 

Screen prompts: 

• Message member 
(#SA@ME) 

• External switch 
{U1-U8) setting 



From: #SAMA 

r 







PROCESS 



Process utility control statement to obtain 
parameters. 



Perform menu message member source 
create or update. 



> 



Oa OUTPUT 

Source statements 
Screen prompts 




To: Build Menu 



DESCRIPTION 



MODULE/ 
ROUTIIME 



Read the menu control statement for SDA and perform syntax and diagnostic checking on parameter data. 

The create function displays a blank skeleton menu to be filled in by the user (if desired). Screens follow 
to allow the user to enter commands associated with each option number on the skeleton menu. Update 
rebuilds the same screens from message member source and allows the user to modify it. 



#SAMB 



Diagram 2-6. SDA Interactive Menu Build ()^SAMB) 
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From: #SAMN 




Retrieve local communication area data. 

Read SFGR source and build a skeleton 
RPG II program. 



OUTPUT 



> 



J^ 



Screen prompts. 
RPG II source 
Work file 



To: User 



DESCRIPTION 



MODULE/ 
ROUTINE 



Obtain library and SFGR source member to process information from local communications area parameter 
data. 

When building RPG II source: 

• Prompt for H and F specification information. 

O Build I specifications prompting for decimal positions on numeric fields. 

• Build O specifications 



#SARP 



Diagram 2-7, SDA RPG Skeleton Program Build {#SARP) 
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From: Keyboard 



INPUT 



Menu option 



y^. 



PROCESS 



The user selects options from the help te^t 
menu. Text data is displayed and the menu 
is redisplayed. 




f 



> 



OUTPUT 



Screen prompts 





Diagram 2-8. SDA Help Text (#SAHP) 



To: User 
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From: Keyboard 



■INPUT 



Local communications 
area 

Work file 

Screen prompting 




PROCESS 



> 



Diagram 2-9. SDA Recovery Function (#SARC) 



Display a list of all formats that have been 
generated and placed in work file. If the 
user enters: 

• Option do b 

• Option 1 do a 

• Option 2 terminate and don't effect 
work file or library 

a. The work file is deleted and not copied 
back to source library. 

b. The work file is copied to source 
library under the specified member 
name. The work file is then deleted. 



> 




OUTPUT 



Source statements 
Screen prompts 



To: User 
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Program Organization 

The storage map (Figure 2-1) in this section is representa- 
tive of the layout for all SDA modules. 



X'OOOO' 



Copyright information 



Executable code 



DTF 

Data buffers 
Work areas 
Accumulator values 

(See the Data Areas section of each 
module listing to determine 
individual usage.) 



Figure 2-1. SOA Storage Map 
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Directory 

This directory identifies the SDA load modules for quick 
reference to program listings and microfiche. Modules are 
listed alphabetically by name, and each entry in the 
directory provides the following information: 

• Module Name is the symbolic label identifying the 
module in the program listings and on microfiche. 

• Major Functions details a brief list of specific functions 
the module performs within the program. 



Module 
Name 

#SACU 



#SADP 



Major Functions 

Retrieves external switches and local data. 
Performs create/add/update activity. 

Displays formats In specified SFGR load 
member. 



#SADS Retrieves external switches and local data. 
Performs delete processing activity. 

#SAHP Allows user to select options from the 
help text menu. Displays text data and 
redisplays menu. 

#SAMA Displays create or update option menu. 

#SAMB Processes utility control statements for 
parameters. Performs menu message 
member source create or updating. 

#SAMN Displays SDA option menu. Processes 

option to set external switches (U1-U8) to 
execute next SDA option. Performs diag- 
nostic checking of parameters. Sets up 
local communications area. 

#SARC Displays list of SFGR formats placed in 
work file. 

#SARP Retrieves local communications area data. 
Reads SFGR source and builds a skeleton 
RPG II program. 
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Data Areas 

LOCAL COMMUNICATIONS AREA 

The local communications area passes data between the 
modules. It is defined using the same displacements as 
for the procedure parameter save area (macro PPSEQ). 

Parameter 1 is in PPSVAROl. 
Parameter 2 is in PPSVAR02. 
Parameter 3 is in PPSVAR03. 
Parameter 4 is in PPSVAR04. 
Parameter 5 is in PPSVAR05. 
Parameter 6 is in PPSVAR06. 
Parameter 7 contains the time of day in displayable 
format. 
Parameter 8 contains the date in displayable format. 
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Diagnostic Aids 

Figure 2-2 lists the message identification codes (MICs) and 
the modules that diagnose and issue the corresponding error 
messages. 



MESSAGES 



Message 



Module 



Message 



Module 



0001 


#SAMN 


0025 


#SAMN 


0002 


#SAMN 


0026 


#SAMN 


0003 


#SADS 


0027 


#SAMB 


0004 


#SACU 


0028 


#SAMB 


0005 


#SAMN 


0029 


#SAMB 


0008 


#SAMN 


0030 


#SAMB 


0009 


#SAMN 


0031 


#SAMB 


0010 


#SACU 


0032 


#SAMB 


0011 


#SACU 


0033 


#SAMB 


0012 


#SACU 


0034 


#SAMB 


0013 


#SACU 


0035 


#SAMB 




#SADS 


0036 


#SAMB 


0014 


#SACU 


0037 


#SARP 




#SADS 


0038 


#SAMB 


0015 


#SAMN 


0039 


#SAMB 


0016 


#SAMN 


0040 


#SACU 


0018 


#SAMN 


0041* 


#SACU 


0019 


#SAMN 


0047 


#SAMN 


0020 


#SAMN 


0048 


#SAMN 


0021 


#SACU 


0049* 


#SACU 




#SADS 


0050 


9^AMB 




#SARP 






0022 


#SACU 
#SADP 
#SAHP 
#SAMA 
#SAMB 
#SAMN 
#SARC 
#SARP 







Note: All messages are SYSLOG messages except those 
annotated with an asterisk. The asterisked messages are 
displayed messages. 

Figure 2-2. SDA Message-to-Module Cross Reference 



Screen Design Aid 2-15 



Licensed Material— Property of IBM 



PROCEDURES 
SDA Mainline 

This procedure executes SDA mainline where: 

Parameter 1 : source member name to process 

Parameter 2: SDA inlib 

Parameter 3: SFGR load member name 

Parameter 4: yes/no to SFGR printing 

Parameter 5: SDA outlib 

Parameters: SFGR outlib 



// MEMBER PR0GRAM1-#SA#M1,USER1-#SA#M1 

// IF PlR'OOOl'?/ SWITCH 00000000 

// IFF ?2'#LIBRARY'?/#LIBRARY SWITCH 00000000 

// IFF ?4'YES'?/ SWITCH 00000000 

// IF ?5?/ IF ?6?/ INCLUDE SDA9 ?1? , ?2? , ?3? , ?4? , ?2? , ?2? 

// IFF ?5?/ IF ?6?/ INCLUDE SDA9 ?1? , ?2? , ?3? , ?4? , ?5? , ?2? 

// IF ?5?/ IFF ?6?/ INCLUDE SDA9 ?1? , ?2? , ?3? , ?4? , ?2? , ?6? 

// IFF ?5?/ IFF ?6?/ INCLUDE SDA9 ?1? , ?2? , ?3? , ?4? , ?5? , ?6? 



SDADROP 

This procedure removes SDA from #library or a specified 
library. 

// REMOVE #SA,ALL,LIBRARY,?1'#LIBRARY'? 
// REMOVE SDA,ALL,LIBRARY,?1'#LIBRARY'? 



SDAH 

This program executes program #SAHP which is the help 
function. 



// LOAD #SAHP 
// RUN 



SDALOAD 

This procedure loads SDA into the system. 



// MEMBER PR0GRAM1-#SA#M1,USER1-#SA#M1 
// * 0049 
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SDASAVE 

This procedure saves SDA from #1ibrary or a specified 
library. 



// IF DATAIl-SDA DELETE SDA, II 

// FROMLIBR SDA, ALL, LIBRARY, , ,999, PPUTIL (SEE SDADROP) 

// FROMLIBR #SA, ALL, LIBRARY, SDA, , ADD, PPUTIL (SEE SDADROP) 



SDA1 

This procedure executes program #SACU which creates, 
adds, and updates total formats. 



// LOAD $FBLD 

// RUN 

// FILE LABEL-#SD.?WS?,ATTRIB-D,BLOCKS-157,RECL-80,RETAIN-T 

// END 

// LOAD #SACU 

// FILE NAME-IOWORK,RETAIN-T,LABEL-#SD.?WS? 

// RUN 

// IF SWITCHl-1 CANCEL 

// IF DATAF1-#SD.?WS? DELETE #SD.?WS?,Fl 

// IFF ?3?/ INCLUDE SDA6 ?1? , ?2? , ?3? , ?4? , ?5? , ?6? SFGR 

// SWITCH 00000000 

// IF SWITCH8-0 RESET SDA ?1? , ?2? , ?3? , ?4? , ?5? , ?6? 



SDA2 

This procedure executes program #SADS which is the 
delete format and SEU generate option. 

// IF SWITCH3-1 SEU ?1?,S,#SA@DS,80,?5? 

// IF SWITCH4-1 LOAD #SADS 

// IF SWITCH4-1 FILE NAME-IOWORK, RETAIN-T, LABEL-#SD . ?WS? , BLOCKS-157 

// IF SWITCH4-1 RUN 

// IF SWITCHl-1 CANCEL 

// IF DATAF1-#SD.?WS? DELETE #SD.?WS?,Fl 

// IFF ?3?/ INCLUDE SDA6 ?1? , ?2? , ?3? , ?4? , ?5? , ?6? SFGR 

// SWITCH 00000000 

// IF SWITCHB-O RESET SDA ?1? , ?2? , ?3? , ?4? , ?5? , ?6? 
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SDA# 

This procedure executes program #SADP which is the 
format display function. 

// IFF ?2?/#LIBRARY LIBRARY NAME-? 2? 

// LOAD #SADP 

// RUN 

// SWITCH 00000000 

// IF SWITCH8-0 RESET SDA ?1? , ?2? , ?3? , ?4? , ?5? , ?6? 

SDA5 

This procedure executes program #SAMA (interactive 
menu option select) and SAMB (interactive menu create 
or update). 

// MEMBER PR0GRAM1-#SA#M1,USER1-#SA#M1 

// IF Pl'SCRNSP'?/ SWITCH 00000000 SET SWITCHES TO 00000000 

// ELSE SWITCH 00000000 BEFORE SAMA 

// LOAD #SAMA 

// RUN 

// IF SWITCHl-0 IF SWITCH2-0 RESET SDA ?1? , ?2? , ?3? , ?4? , ?5? , ?6? 

// IFF ?2?/?5? IF SWITCH2-1 LOAD $MAINT 

// IFF ?2?/?5? IF SWITCH2-1 RUN 

// IFF ?2?/?5? IF SWITCH2-1 COPY FROM-72? ,T0-?5? ,LIBRARY-S ,NAME-?1?## ,RETAIN-R 

// IFF ?2?/?5? IF SOURCE- 'PIPDT,? 2?' IF SWITCH2-1 COPY FROM-72? , T0-?5? ,RETAIN-R, 

// IFF ?2?/?5? IF SOURCE- •?1?DT,?2?' IF SWITCH2-1 LIBRARY-S ,NAME-?1?DT 

// IFF ?2?/?5? IF SWITCH2-1 END 

// LOAD #SAMB 

// RUN 

// MENU INPjyiSG-?l?##,MENMSG-?l?DT,INLIB-?5?, REPLACE-NO 

// END 

// IFF SOURCE- '?1?DT,? 5?' BLDMENU ?1? ,, ?5? ,? 5? , REPLACE 

// IF SOURCE- '?1?DT,? 5? ' BLDMENU ?1? , ?1?DT, ?5? , ?5? ^REPLACE 

// SWITCH 00000000 

// IF SWITCH8-0 RESET SDA ?1? , ?2? , ?3? , ?4? , ?5? , ?6? 



SDA6 

This procedure executes SFGR. 



// IF Pl'SCRNSPEC'?/ SWITCH 00000000 

// * 0041 

// LOAD $SFGR 

// RUN 

// LOADMBR REPLACE-YES, NAME-? 3? 

// INOUT OUTLIB-?6?,INLIB-?5?,PRINT-?4? 

// CREATE SOURCE- ?1?, NUMBER- 3 2 

// END 

// SWITCH 00000000 

//IF SWITCH8-0 RESET SDA 1? , ?2? , ?3? , ?4? , ?5? , ?6? 
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SDA7 

This procedure executes program #SARP which is the RPG II 
skeleton program create option. 



// LOAD #SARP 

// FILE NAME-IOWORK,RETAIN-T,LABEL-#SD.?WS?,BLOCKS-157 

// RUN 

// IF SWITCHl-1 CANCEL 

// IF DATAF1-#SD.?WS? DELETE #SD.?WS?,Fl 

// SWITCH 00000000 

// IF SWITCH8-0 RESET SDA ?1? , ?2? , ?3? , ?4? , ?5? , ?6? 



SDA8 

This procedure executes program #SARC which is the 
recovery procedure data set. 



CAUSES LOCAL AREA TO BE SET UP 



// SWITCH 10000000 

// LOAD #SAMN 

// RUN 

// SWITCH 00000000 

// LOAD #SARC 

// FILE NAME-IOWORK,RETAIN-T, LABEL- #SD.?WS? 

// RUN 

// IF SWITCHl-1 CANCEL 

// IF DATAF1-#SD.?WS? DELETE #SD.?WS?,Fl 



SDA9 

This procedure executes SDA mainline and routes to the 
subprocedure shown below where: 

Parameter 1 : source member name to process (defaults 

to SCRNSPEC) 

Parameter 2: SDA inlib (defaults to #library ) 

Parameter 3: SFGR load member name 

Parameter 4: yes/no to^FGR printing (defaults to yes) 

Parameter 5: SDA outlib (defaults to parameter 2) 

Parameter B: SFGR outlib (defaultsJi3.jaarameter 2) 



// TF DATAFl-#St).?WS? INCLUDE 

// SWITCH 00000000 

// LOAD #SAMN 

// RUN 

// IF SWITCHl-1 INCLUDE 

// IF SWITCH2-1 INCLUDE SDA2 

// IF SWITCH3-1 INCLUDE SDA3 

// IF SWITCH4-1 INCLUDE SDA5 

// IF SWITCH5-1 INCLUDE SDA7 

// IF SWITCH8-1 CANCEL 



SDA8 ?1?,?2?,?3?,?4?,?5?,?6? 



SDAl ?1?,?2?,?3?,?4?,?5?,?6? 
?1?,?2?,?3?;?4?,?5?,?6? 
?1?,?2?,?3?,?4?,?5?,?6? 
•?'!'? "P?"? o'^'? '?4'P •?S'? '^G'^ 



CREATE, ADD, UP 
DELETE, SEU 

DISPLAY 

MENU 

RPG 
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SDA index 

#SACU (performs create/add/update activity) 
diagram 2-4 
directory 2-13 

#SADP (displays formats in specified SFGR load member) 
diagram 2-6 
directory 2-13 

#SADS (performs delete) 
diagram 2-5 
directory 2-13 

#SAHP (allows user to select options from the help text 
menu) 
diagram 2-10 
directory 2-13 

#SAMA (displays create or update option menu) 
diagram 2-7 
directory 2-13 

#SAI\/IB (displays the blank or updated menu formats) 
diagram 2-8 
directory 2-13 

#SAMN (displays SDA option menu) 
diagram 2-3 
directory 2-13 

#SARC (displays list of SFGR formats placed in work file) 
diagram 2-11 
directory 2-13 



#SARP (reads SFGR source and builds a skeleton RPG 
program) 
diagram .2-9 
directory 2-13 

Allows user to select options from the help text menu 
diagram 2-10 
directory 2-13 

Displays create or update option menus 
diagram 2-7 
directory 2-13 

Displays formats in specified SFGR load member 
diagram 2-6 
directory 2-13 

Displays SDA option menu 
diagram 2-3 
directory 2-13 

Displays a list of SFGR formats placed in work file 
diagram 2-11 
directory 2-13 

Performs create/add/update activity 
diagram 2-4 
directory 2-13 

Performs delete 
diagram 2-5 
directory 2-13 

Reads SFGR source and builds a skeleton RPG program 
diagram 2-9 
directory 2-13 
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Chapter 3. Data File Utility (DFU) 



Introduction 

The data file utility (DFU) portion of the utilities program 
product provides a convenient method of creating, maintain- 
ing, displaying, and listing data files. 

DFU operates interactively, allowing the System/34 user to: 

• Create indexed data files. 



Nonexecutable Load Modules 



#DF#MG 

#DF@24 

#DFS0-#DFS10 



Procedures 



DFU message load member, 
display screen load member, 
reserved for expansion to keep 
DFU a fixed size in the library. 



• Update indexed data files. 

• Inquire into indexed data files. 

• List indexed, sequential, or direct data files. Data files 
can be sorted prior to being listed. The following 
capabilities are available within the list function: 

— Extract and print data from a related master file. 

— Select records for printing based on field value. 

— Calculate and print a result field by combining, 
arithmetically, fields and/or constant values. 



HOW THE PROGRAM WORKS 

The DFU user signs on by entering one of the DFU com- 
mands: ENTER,UPDATE, INQUIRY, or LIST. DFU 
then calls setup or execution depending on the existence 
or nonexistence of the DFU format named by the second 
parameter of the command. The DFU format describes the 
processing to be performed. If the DFU format name 
does not exist as a subroutine member in the library, DFU 
setup is called to create the format. If the DFU format 
named on the initial command exists as a subroutine member 
in the library, the corresponding execution phase is called. 

Note: The library referred to in this discussion is^the 
system library, unless a user library is specified on the DFU 
command. 



PHYSICAL CHARACTERISTICS 

DFU is composed of 36 library members. The Directory in 
this chapter explains the 14 executable load modules. 



ENTER allows creation of a data file. 

UPDATE allows alteration of an existing data file. 

INQUIRY allows display of a data file. 

LIST allows printing of a data file. 

DFULOAD loads DFU into a specified library. 

DFUDROP deletes DFU from a specified library. 

DFUSAVE saves DFU on diskette. 

#DFST calls modules required for a list with sort. 

#DFMP calls job setup modules. 



INPUT/OUTPUT 

After the user signs on DFU, input to set up and execution 
consists of: 

Setup 

• Source member of RPG II file description and input 
specifications describing the files to be processed. 

• Source member of saved DFU specifications. 

• Operator responses to DFU prompts. 
Execution 

• DFU format description (subroutine members) describing 
the processing to be performed. 

• Display format load member describing execution time 
output displays. 

• Data file(s) to be updated, displayed, listed. 

• Operator responses to DFU prompts. 
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Output from DFU setup and execution consists of: 
Setup 

• Source member of saved DFU specifications. 

• DFU format description (subroutine member) describing 
the processing to be performed. 

• Display format load member describing execution time 
output displays. 

• SYSLIST output of DFU attributes and specifications. 

• Source member of display format specifications describ- 
ing execution time displays. 

Execution 

• Created or updated data file. 

• Printed output of processing performed. 

• Displayed data records at the display station. 

I/O STORAGE REQUIREMENTS 

DFU requires 14K (14,336) bytes of main storage. 

SYSTEM CONFIGURATION 

DFU runs on all models of the System/34. DFU requires 
the Sort program when listing with sort. 
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Method of Operation 



From: System 



INPUTS 



Library (disk): 

• DFU message 
member (#DF#MG) 

• RPG II source for 
file(s) 

• Saved DFU source 
specifications 

• DFU format 
(subroutine) 

• Display format 
(load) 

Disk data file(s) 

Display station input 
functions, parameters, 
responses to DFU 
prompts 




PROCESS 



> 



If format description does not exist, 
creates it (Diagram 3-2). 

Enter/Update: creates or updates the file 
(Diagram 3-3). 

inquiry: displays the file (Diagram 3-4). 

List: prints the file (Diagram 3-5). 



:> 



OUTPUT HBffiHns 

Library (disk): 

• DFU format 
(subroutine) 

• DFU specs (source) 

• Display formats 
(source and load) 

Printer: Records 
processed 

Disk data file 

Display station output: 
Error messages, prompts, 
record displays. 



3^ 



To: System 



DESCRIPTION 



MODULE/ 
ROUTINE 



The DFU format describes the file processing required. If it does not exist as a subroutine member in the 
library at job initiation, the DFU job setup modules are called to create it. For enter/update and inquiry, 
corresponding display format source specifications are created to describe display station screens. These 
are stored in the library under the default name generated by DFU, unless a name is specified on the initial 
command. The default name is a combination of: #DF + display station ID + 1 (if not in inquiry mode), 
or 2 (if in inquiry mode). 

DFU then calls the SSP utility program, $SFGR, to convert these source specifications to the load member 
form required for execution; the load member has the same name as the DFU format. The source input 
specifications are then removed from the library, unless a name was specified on the initial command, 
indicating they were to be saved. 

The operator can create or update records in a file. Fields can be totaled, and new, updated, or deleted 
records can be printed. 

The operator can select any prime data area record in the file for display at the display station. Records can 
be selected by record key or by scrolling through the file. Any displayed record can be printed. 

The file is listed as specified in the DFU format. The file can be sorted before listing data for the list can be 
extracted from a related master file. 



#DFIVIP 



#DFEI, 
#DFUD 

#DFIN 
#DFLS 



Diagram 3-1. DFU Overview 
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From: 



DFU Overview 
(Diagram 3-1) 



INPUT 



Utility control state- 
ments (DFU and END) 

Library (disl<) 

• RPG II source 
specs describing 
file(s) 

• Cataloged DFU 
source specs 

• DFU message 
member (#DF#MG) 

Display station input 

• Prompt responses 
and DFU spec 
updates 




PROCESS 



ra OUTPUT 



> 



Diagram 3-2 (Part 1 of 2). DFU Job Setup 



n Initializes DFU job setup. 

Q Builds DFU specs. 

Q Allows updates to DFU specs. 

yj Diagnoses and optionally catalogs DFU 
specs. Returns to step 3 if any errors. 

Q Creates DFU format in work file. 

^1 Creates display screen source specs for 
enter/update and inquiry. 

Q Writes DFU format in library. 

Q If not list, calls $SFGR to create display 
format load member. 



> 




System list device: 
RPG II errors, DFU 
attributes, specs 

Main storage 
(COiVllViON): 

O Information pointer 

O Buffer addresses 

DFU work file (DISK): 

O DFU attributes 

O DFU specs 

O DFU format 

Library (disk): 

O DFU specs (source) 

O Display screen 
formats (source) 

O DFU format 
(subroutine) 

o Display screen 
formats (load) 



k 



To: Execution Step for 
Enter/Update (Diagram 3-3) 
Inquiry (Diagram 3-4), or 
List (Diagram 3-5) 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Allocates a scratch work file on disk (DFUWORKA), initializes COMMON in main storage, and converts 
RPG II specifications to DFU attributes in the work file. If a master file is present, prompts for the RPG II 
member and creates the corresponding master file attributes. If DFU specifications are saved, reads them 
and puts them in the work file. 

Prompts the operator for a job description and builds DFU specifications for enter, update, inquiry, or list. 



s8 Displays DFU attributes or specifications and allows updating of DFU specifications. 

iaSi Diagnoses the DFU specifications in the work file. Saves the DFU specifications, if requested, when they are 
error free. 

SM Merges DFU attributes/specifications and creates DFU format in the work file. 

Q If enter/update or inquiry, creates source specifications describing display screens for the job. 

iin Writes the DFU format as a subroutine member in the library and calls end of job to terminate the job 
setup step. 

ul If enter/update or inquiry, called (as a job step) to convert display screen source to display screen load 
format. 



#DFMP 



#DFQL- 

list 
#DFQI- 

inquiry 
#DFQE- 

enter/update 

#DFUP 
#DFDI 

#DFFB 
#DFWS 
#DFWS 

$SFGR 



Diagram 3-2 (Part 2 of 2). DFU Job Setup 
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From: DFU Overview (Diagram 3-1) if 
format existed, or Job Setup 
(Diagram 3-2) if format did not exist. 

INPUT MMannni^ B Bi PROCESS 



System input: Utility 
control statements 
(DFU and END) 

Data files (disk): VTOC 
for file to be updated. 

Library (disk): 

• DFU format 
(subroutine) 

• Screen format 
(load) 

• DFU message 
member 
(#DF#MG) 

Display station out- 
put: Operator creates 
or changes record 






miwmwBiKJiMX'mmwisss^^^ 



> 



If enter, allocates file. 

Initializes enter/update processing. 

If update mode, prompts the operator for 
the key of the next record to be updated. 

If entry or insert mode, prompts the 
operator for the record key and data of 
the next record to be created. 

Examines operator responses to display 
screen prompts. 

Writes completed records to disk. 

Updates accumulator values. Repeats 
steps 2 through 6 until end of job is 
requested. 

If end of job is requested, terminates 
processing. 



mmsMmnmutmammsima 



Diagram 3-3 (Part 1 of 2). DFU Enter/Update Execution 



> 



p OUTPUT 



Main storage. 
(COMMON): 

O Information pointers 

O Buffer addresses 

\ Display station display: 



I © Accumulator 
displays 

O Enter/update record 
displays 

Data file (disk): New/ 
updated/deleted records 

Printer: 

O New records 

O Updated records 

g © Deleted records 

o Accumulator values 







To: System 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Allocates and creates VTOC entry for a new file. 

Reads and processes utility control statements, allocates buffers for all files, and locates and reads the DFU 
format. Allocates and opens the data file and display station and initializes the COMMON area. 

In update, prompts the operator for the key of the record to be updated. This key must exist in the file. 

If creating records, the record key and associated data is prompted for at the same time. The record key must 
not exist in the file. 

Interprets all operator function control and command function key responses. 



LI When a record is completed, writes new/updated record or deletes record. If requested in the DFU format, 
the record is printed using printer data management. The printer is opened the first time it is requested. 



Changes or adds to the accumulator hold areas. If requested by the operator, displays batch accumulators; 
they are also printed if the printer is opened. 



Displays new/updated/deleted record counts, and displays batch and final accumulators. Prints this information 
if the printer is opened. Calls end of job. 



#DFEX 
#DFEX 

#DFUD 
#DFEI 



#DFEI 

(entry/insert) 
#DFUD 

(update) 

#DFEI 

(entry/insert) 
#DFUD 

(update) 

#DFEI , 

(entry/insert) 
#DFUD 

(update) 

#DFEI 

(entry/insert) 
#DFUD 

(update) 



Diagram 3-3 (Part 2 of 2). DFU Enter/Update Execution 
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From: DFU Overview (Diagram 3-1) if 
format existed, or Job Setup 
(Diagram 3-2) if format did not 
exist. 



p INPUT 



Utility control state- 
ments (DFU and END) 

Data file (disk): VTOC 
for file to be displayed. 

Library (disk): 

• DFU format 
(subroutine) 

• Screen format 
(load) 

• DFU message 
member (#DF#I\/IG), 

Display station input: 
Operator requests to 
display records. 




PROCESS 



> 



Initializes inquiry processing. 

Retrieves record to display. 

Determines record type. 

Displays record. 

Examines operator responses. Repeats 
steps 2 through 5 until end of job is 
requested. 

Calls end of job. 



C> 



I OUTPUT 



Main storage 
(COMMON): 

• Information pointers 

• Buffer addresses 

Display station display: 
Records displayed 
from file 

Printer: Formatted 
print of selected 
records 




To: System 



Diagram 3-4. DFU Inquiry Execution 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Mm Reads and processes utility control statements, allocates buffers for all files, and locates and reads the 


#DFEX 


DFU format. Allocates and opens the data file and initializes the execution COMMON area. 




Es Initially retrieves the first record in the file, later retrieves the record specified by the operator. The operator 


#DFIN 


request records by a specific record key, or scrolling the file. 




El Examines the record information sectors of the format description to check if the retrieved record matches 


#DFIN 


any defined record types, if a match is found, reads the field information sectors that indicate the fields to 




display for this record type. 




mim Displays the record as described in the DFU format. 


.#DFIN 


Kfl Examines operator responses, prints the record if requested (via printer data management), and allocates and 


#DFIN 


opens the printer on first print request. Determines operator's next record key request. 




mSM When operator requests end of job, calls end of job to terminate the job and close all files. 


#DFIN 
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From: DFU Overview (Diagram 3-1) if 
format existed, or Job Setup 
(Diagram 3-2) if format did not 
exist. 



INPUT 



Utility control state- 
ments (DFU and END) 

Library (disk): 

• DFU format 
(subroutine) 

• DFU message 
member (#DF#l\/iG) 

Disk data files: 

• VTOC for data 
file to list 

• VTOC for master 
file 




PROCESS 



> 



If file is to be sorted, create sort sequence 
specs. 

If file is to be sorted, call #GSORT to sort 
file. 

Initialize for list processing. 

Read record and determine if it is to be 
listed. 

Read master record (if needed). 

Process control level fields. 

Print fields from record(s). Repeat steps 
4 through 7 until end of file is reached. 

If end of file, print final totals and 
terminate. 



OUTPUT 



> 



-^ 



Library (disk): Source 
member of sort 
sequence specs 

Disk data file: File of 
sorted tag records 
(#DFTAG) 

Main storage 
(COMMON): 

® Processing 
information 

® Record addresses 

Printer: Data fields 
and accumulators 



To: System 



DESCRIPTION 



MODULE/ 
ROUTINE 



If file is to be sorted before listing, this module is called via OCL to create sort sequence specifications 
from information in the DFU format. 

If file is to be sorted before listing, the sort module is called via OCL to create a file of sorted tag records. 
This file has RETAIN-J; so it exists only for this job. 

Reads and processes utility control statements, allocates buffers for all files. Allocates and opens the printer 
and all data files. Locates and reads the DFU format. Initializes the COMMON area. 

Note: All printing is done via printer data management. 

if sorted, reads a tag record and then the associated data record. If not sorted, reads next record from data 
file. Determines record type. If found, determines if the record satisfies record selection criteria (if specified). 

Reads the master record if necessary. 

Determines if a control field changed value. If so, prints and updates accumulators. 

If detail records are printed, formats and prints data including generated result fields. 

Prints final accumulator and calls end of job. 



#DFSB 

#GSORT 

#DFEX 

#DFLS 

#DFLS 
#DFLS 
#DFLS 
#DFLS 



Diagram 3-5. DFU List Execution 
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Program Organization 

This section contains module flow charts (Figures 3-1 through 
3-3) to define interaction wtihin the program. Additionally, 
storage maps (Figures 3-4 and 3-5) for the DFU job setup and 
job execution are included in this section. 
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( Start DFU j 



Figuro 3-1. DFU Modulo Flow Ovorviow 




DFU job setup 
(Figure 3-2) 




SSFGR 



Create display 
format load 
member 



SMAINT 



Remove display 
format source 
member 



DFU job 
execution 
(Figure 3-3) 



Default 
DFU 
format 



Yes 



SMAINT 



Remove format 
from library 





( End DFU ] 



Yes 



Yes 



Yes 



Data File Utility (DFU) 3-11 



Licensed Material— Property of IBIVI 



{ Start DFU setup | 



#DFMP 

Create DFU 
attributes 



Inquiry 



#OFQI 



Create Inquiry 
DFU specifications 



#DFUP 



Allow update of 
DFU specifications 



#DFDI 



Diagnose/save DFU 
specifications 




Figure 3-2. DFU Job Setup Module Flow 
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Enter/Update 



List 



#DFQL 



Create list DFU 
specifications 



#DFUP 



Allow update of 
DFU specifications 



#DFDI 



Diagnose DFU 
specifications 



Yes 




#DFFB 



Create DFU 
format in work 
file 



#OFWS 



Write DFU format 
and display 
source 



( End DFU setup J 



#DFDI 



Diagnose DFU 
specifications 



#DFQE 



Create enter/update 
DFU specifications 



3 




Yes 



#DFUP 



Allow update of 
DFU specifications 



#DFDI 



Yes 
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#DFUD 



Alter data 
records 



(Start DFU ^ 
execution J 



Enter/Update 




Yes 



#DFEX 



Allocate new file 



#DFEX 



Initialize enter/ 
update execution 



#DFEI 



Create data records 



Figure 3-3. DFU Job Execution Module Flow 




List 



Yes 



#DFSB 



Create sort 

sequence 

specifications 



#GSORT 



Sort data file 



#DFEX 



Initialize list 
execution 



#DFLS 



Print data records 



Inquiry 




(End of ^ 

execution ) 



#DFEX 



Initialize inquiry 
execution 



#DFIISI 



Display data 
records 
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X'OOOO' 



#DFMP 



X'3800' 



Copyright Information 



Job setup communications area 
(COMMON) 

• Data used by more than one module. 

• Subroutines used by more than one 
module. 



Module overlay area— First 5 bytes give 
name of module in storage. (Label 
DFMPOOOO in the #DFMP module 
addresses this area.) 



Buffers for individual modules. (See the 
Data Areas section of a module's pro- 
logue to determine individual usage.) 



Buffers to read/write/display DFU 
attributes/specifications (used by all job 
setup modules). 



Additional buffers to read/write/display 
DFU attributes/specifications (if region 
size larger than 14K). 



#DFQL 

#DFQI 

#DFQE 

#DFUP 

#DFDI 

#DFFB 

#DFWS 



Figure 3-4. DFU Job Setup Storage Map 
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X'OOOO' 



#DFEX 



X'3800' 



Copyright Information 



Job execution communications area 
(COIVIIVION) 

• Data used by more than one module. 

• Subroutines used by more than one 
module. 

• Printer DTF. 

• Data file DTF. 



Module overlay area— First 5 bytes give 
name of module in storage (label 
DFEXOOOO in the #DFEX module 
addresses this area). 



Data areas referred to in COMMON: 

• DTFs for display station, master file, 
tag file. 

• Accumulator hold areas. 

• Control level hold areas. 

• I/O buffers for files. 

• Read buffer for DFU format. 

(See the Data Areas section of a module's 
prologue to determine individual usage.) 



Additional buffers to read DFU format 
(if region size larger than 14K). 



#DFEI 
#DFUD 
#DFLS 
#DFIN 



Note: The module to create sort sequence specifications, 
#DFSB, is loaded via OCL as a separate job step. Since 
the module contains no overlays, it is not described in a 
storage map. 

Figure 3-5. DFU Job Execution Storage Map 
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Directory 

This directory identifies the DFU executable load modules 
for quick reference to program listings and microfiche. 
IVIodules are listed alphabetically by name, and each entry in 
the directory provides the following information: 

• Module Name is the symbolic label identifying the 
module in the program listings and on microfiche. 

• Major Functions is a brief list of specific functions the 
module performs within the program. 



Module 
Name 

#DFDI 



#DFEI 



#DFEX 



Major Functions 

• Diagnoses DFU specifications. 

• Saves the DFU source specifications if 
requested when they are error free. 

• Prompts the operator for key and data 
fields for a new record (entry/insert modes). 

• Creates the record from operator responses 
and writes it to disk. Totals accumulator 
fields. 

• Allocates a printer, if necessary, and prints 
new/updated/deleted records. 

• Processes end-of-job request. 

• Reads and processes DFU utility control 
statements. 

• Allocates a new file for the enter function. 

• Initializes job execution communications 
area (COMMON) for update, inquiry, and 
list functions. 



Module 
Name 

#DFIN 



#DFLS 



#DFMP 



Major Functions 

• Retrieves the key and data fields of the 
requested record from the file and places 
the fields into the display buffer. 

• Puts the requested record out to the 
display station and gets the next operator 
response. 

• Calls indexed random/sequential input 
data management to get one of the 
following: 

— Requested record using key entered 
by operator. 

— Next record (Roll Up function control 
key). 

— Preceding record (Roll Down function 
control key). 

• Prints record if requested. 

• Processes end-of-job request. 

• Reads records from the file. 

• Determines if record is to be listed. 

• Reads the master file record if necessary. 

© Prints accumulator/control break fields 
when control fields change. 

• Prints detail information from record. 

• Allocates and opens the display station 
and work file. 

• Initializes the job setup communications 
area. 



• Passes control to the execution module to 
process the file. 

#DFFB • Reads DFU specifications from the work 

file. 

• Reads DFU attributes from the work file. 

• Merges DFU attribute/specification 
information to create DFU format in the 
work file. 



• Reads from SYS IN and processes the 
parameters from the DFU utility control 
statement. 

• Reads and processes the records from the 
RPG II source member. 

• Builds DFU attributes and writes them 
in the work file. 
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Module 
Name 

#DFMP 
(continued) 



#DFQE 



#DFQI 



#DFQL 



#DFSB 



Major Functions 

• Prompts for description of related master 
file and builds attributes for the master 
file. 

• Reads DFU specifications and writes them 
in the work file. 

• Prompts the operator, checks the syntax 
of the responses, and builds DFU specifi- 
cations from the following enter/update 
displays: 

— General information 

— Key field specification 

— Record key description 

— Record type selection 

— Data field specification 

• Prompts the operator, checks the syntax 
of the responses, and builds DFU specifi- 
cations from the following inquiry 
displays: 

— General information 

— Key field specification 

— Record key description 

— Record type selection 

— Data field specification 

• Prompts the operator, checks the syntax 
of the responses, and builds DFU specifi- 
cations from the following list displays: 

— General information 

— Record key description 

— Record type selection 

— Data field specification 

— Result field specification 

— Sort field specification 

— Control field specification 

— Select field specification 

• Reads DFU and END DFU utility control 
statements. 



Module 
Name 

#DFUD 



#DFUP 



#DFWS 



Major Functions 

• Allows the operator to review/change 
previous record processed. 

• Prompts the operator for the key of the 
record to update. 

• Displays and allows the operator to 
change/delete an existing record. 

• Totals accumulator field changes. 

• Allocates a printer, if necessary, and 
prints new/updated/deleted records. 

• Processes end-of-job request. 

• Displays DFU specifications/attributes, 
including any errors diagnosed. 

• Prints DFU attributes/specifications if 
requested by operator. 

• Allows the updating, deletion, and addi- 
tion of DFU specifications. 

• Reads the DFU format from the work file. 

• Creates display station source specifica- 
tions for enter/update/inquiry functions. 

• Rewrites DFU format in work file with 
enter/update/inquiry information inserted. 

• Writes DFU format as a subroutine 
member in the library. 



• Finds DFU format and determines if 
information matches file to be sorted. 

• Creates sort sequence specifications as a 
source member in the library to describe 
how file is to be sorted. 
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Data Areas 

This section discusses the following data areas used by DFU: 

• Job setup communications area (COMMON) 

• Job setup disk work file 

• DFU format description 

• Job execution communications area (COMMON) 

An explanation is provided for the type of data in each 
data area. The exact data layout is not provided; rather, 
references are made to the module listings (microfiche) 
containing the detailed data layout. 

JOB SETUP COMMUNICATIONS AREA (COMMON) 

This area passes information between the job setup 
modules and is initialized by the first setup module 
(#DFMP). Succeeding setup modules are loaded after the 
area, and do not overlay any data in the area. Index 
register 1 addresses this area whenever a new job setup 
module is loaded. This area contains constants, keyword 
translations, work file pointers, display station DTF, and 
several subroutines used by all setup modules. The label 
COMMON in the following job setup modules can be used 
to locate the start of this area: 

#DFMP 

#DFQL 

#DFQI 

#DFQE 

#DFUP 

#DFDI 

#DFFB 

#DFWS 

JOB SETUP DISK WORK FILE (DFUWORKA) 

The job setup disk work file stores the following informa- 
tion about the current job: 

• DFU attributes— describes the file to be processed (see 
ATTRFIL in job setup communications area). 

• DFU specifications— describes the processing to be per- 
formed on the file (see DFUFIL in job setup communica- 
tions area). 



Additionally, the area is used as an intermediate area for 
creating and storing the DFU format, before it is written as 
a library subroutine member. This data is written beginning 
in the first new sector after the DFU specifications. 

This disk work file is allocated by the first job setup module 
(#DFMP) with a minimum size of 50 sectors, and a maxi- 
mum size of 500 sectors. The first sector address is found 
at the label ATTRFIL, and the first sector past the end of 
the work file is found at the label ENDWORKA in the job 
setup communications area. 



DFU FORMAT DESCRIPTION 

The DFU format description (DFU format) is a library sub- 
routine member that describes the current job processing. 
A detailed description of the data in the DFU format can 
be found starting at the label DFUFORMT in the following 
DFU modules: 

#DFFB 

#DFWS 

#DFSB 

#DFEX 

#DFEI 

#DFUD 

#DFIN 

#DFLS 

Generally, the DFU format looks as follows: 

• The first sector is the file information sector. It describes 
the general characteristics of the job: file description 
and file processing. See label DFUFILE for a description 
of the file information. 

• The second sector is the first (or only) sector of the 
record information. Each record type in the file to be 
processed is described in a record identification entry. 
See label DFURTYPE for a description of a record type 
entry. Entry RCDFPTR is a pointer to the first sector 
of field information for a record. 

• The third sector is the first field information sector. 
More than one sector can be required to describe the 
fields for a given record type. See label DFU FIELD for 
a description of the field information entries. 
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JOB EXECUTION COMMUNICATIONS AREA (COMMON) 

This area passes information between the various job execu- 
tion modules and is initialized by the first job execution 
module {#DFEX). Succeeding execution modules are 
loaded after the area, and do not overlay any data in the 
area. Index register 1 addresses this area whenever a new 
job execution module is loaded. 

This area contains constants, keywords, control block 
pointers, and several subroutines used by all job execution 
modules. The label COMMON in the following job execu- 
tion modules can be used to locate the start of this area. 

#DFEX 

#DFIN 

#DFLS 

#DFEI 

#DFUD 
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Diagnostic Aids 

The following list (Figure 3-6) details the message identifica- 
tion codes (MICs) and the modules that diagnose and issue 
the displayed error messages (described in the Displayed 
Messages Guide). Refer to the DFU Reference Manual 
(Appendix B) for a list of printed messages issued while 
module #DFMP is diagnosing the RPG 11 specifications. 
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MESSAGES 



Message 


Module 


Message 


Module 


Message 


Module 


Message 


Module 


ooor 


#DFEI 


0025 


#DFUP 


0056* 


#DFDI 


0076* 


#DFQL 




#DFUD 




#OFMP 




#DFQL 




#DFDI 


0002* 


#DFEI 




#DFEX 




#DFQI 


0077* 


#DFQL 


0003* 


#DFEI 




#DFEI 




#DFQE 




#DFDI 


Q004 


#DFEI 




#DFUD 


0057* 


#DFDI 


0078* 


#DFQL 




#DFUD 




#DFLS 


0058* 


#DFDI 




#DFDI 




#DFIN 


0026* 


#DFIN 




#DFQE 


0079* 


#DFQL 




#DFLS 


0029* 


#DFUD 




#DFQI 




#DFDI 


0005* 


#DFEI 




#DFIN 


0059* 


#DFIN 


0080* 


#DFQL 




#DFUD 


0031* 


#DFIN 




#DFEI 




#DFDI 


0006 


#DFEX 


0032* 


#DFIN 




#DFQE 


0081* 


#DFQL 




#DFEI 


0033* 


#DFE1 




#DFUD 




#DFDI 




#DFUD 




#DFUD 




#DFQI 


0082* 


#DFQL 




#DFIN 


0035 


#DFLS 




#DFQL 


0083 


#DFWS 




#DFLS 


0037 


#DFEX 


0060* 


#DFQI 


0084 


#DFSB 


0007* 


#DFUD 




#DFEI 




#DFDI 


0085 


#DFDI 




#DFIN 




#DFIN 




#DFQL 


0089 


#DFEI 


0008 


#DFEX 




#DFUD 




#DFQE 




#DFUD 


0009* 


#DFEI 


0039 


#DFSB 


0061* 


#DFQE 




#DFUP 




#DFUD 


0040* 


#DFEI 


0062* 


#DFQL 




#DFMP 




#DFIN 


0041 


#DFMP 




#DFQE 




#DFQL 


0010 


#DFEX 


0044 


#DFMP 


0063* 


#DFQL 




#DFQI 


0011 


#DFEX 


0045 


#DFMP 


0064* 


#DFQL 




#DFQE 




#DFSB 


0046 


#DFMP 




#DFDI 




#DFIN 


0012 


#DFEX 




#DFQI 


0065* 


#DFQL 




#DFLS 




#DFSB 




#DFQL 


0066* 


#DFQL 


0090* 


#DFDI 


0013 


#DFEX 




#DFQE 


0067* 


#DFQL 


0111* 


#DFDI 




#DFSB 


0047* 


#DFUP 


0068* 


#DFQL 


0112* 


#DFDI 


0014 


#DFMP 


0048* 


#DFDI 




#DFDI 


0113* 


#DFDI 




#DFSB 




#DFQE 


0069* 


#DFQL 


0114* 


#DFDI 




#DFEX 


0049* 


#DFDI 




#DFDI 


0115* 


#DFDI 


0015 


#DFIN 




#DFQE 


0070* 


#DFQL 


0116* 


#DFDI 


0016 


#DFSB 


0050* 


#DFDI 




#DFDI 


0117* 


#DFDI 




#DFEX 




#DFQE 


0071* 


#DFQL 


0118* 


#DFDI 


0017* 


#DFIN 


0051* 


#DFDI 




#DFDI 


0119* 


#DFDI 




#DFEI 




#DFQE 


0072* 


#DFQL 


0120* 


#DFDI 




#DFUD 


0053* 


#DFQE 


0073* 


#DFQL 


0121* 


#DFDI 


0018* 


#DFEI 




#DFQI 


0074* 


#DFQL 


0122* 


#DFDI 


0019* 


#DFEI 


0054* 


#DFDI 




#DFDI 


0123* 


#DFDI 




#DFUD 


0055* 


#DFDI 


0075* 


#DFQL 


0124* 


#DFDI 


0022 


#DFUP 








#DFDI 


0125* 


#DFDI 



Note: All messages are SYSLOG messages unless annotated with an asterisk. The asterisked messages are 
displayed messages. 

Figure 3-6 (Part 1 of 2). DFU Message-to-Module Cross Reference 
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Message 



Module 



Message 



Module 



Message 



Module 



0126* 


#DFDI 


0205 


Procedures 0290 Procedures 


0127* 


#DFDI 


0206 


Procedures 0291* #DFDI 


0128* 


#DFDI 




#DFMP 






#DFQL 


0209 


Procedures 






#DFQI 


0212 


Procedures 






#DFQE 


0214 


Procedures 




0129* 


#DFDI 


0216 


Procedures 




0130* 


#DFDI 




#DFMP 




0131* 


#DFDI 


0217 


#DFMP 




0132* 


#DFDI 




#DFQL 




0133* 


#DFDI 




#DFQI 




0134* 


#DFDI 




#DFQE 




0135* 


#DFDI 




#DFUP 




0136* 


#DFDI 




#DFEI 




0137* 


#DFDI 




#DFUD 




0139* 


#DFDI 




#DFIN 




0141* 


#DFDI 


0218 


#DFMP 




0142* 


#DFDI 




#DFQL 




0143 


#DFUP 




#DFQE 




0145* 


#DFDI 




#DFQI 




0146* 


#DFDI 




#DFUP 




0152* 


#DFDI 




#DFEI 




0161* 


#DFDI 




#DFUD 




0162 


#DFMP 




#DFIN 




0163* 


#DFDI 


0224 


#DFSB 




0164 


#DFMP 




#DFMP 




0167 


#DFMP 
#DFQI 




#DFEX 
Procedures 






#DFQE 


0254* 


#DFMP 






#DFQL 


0255* 


#DFMP 






#DFFB 


0256* 


#DFMP 




0169 


#DFMP 


0258* 


#DFMP 






#DFQI 


0259* 


#DFDI 






#DFQE 


0264* 


#DFDI 






#DFQL 


0265* 


#DFDI 






#DFUP 


0266* 


#DFDI 






#DFDI 


0269* 


#DFDI 






#DFFB 


0270* 


#DFDI 






#DFWS 


0275 


Procedures 




0172* 


#DFDI 


0276 


Procedures 




0174* 


#DFDI 


0277 


Procedures 




0181* 


#DFDI 


0278 


Procedures 




0182* 


#DFDI 


0280* 


#DFDI 




0183* 


#DFDI 


0281 


#DFEX 




0188* 


#DFDI 


0282 


#DFEX 




0189* 


#DFDI 


0283 


#DFEX 




0201 


Procedures 


0284 


#DFEX 




0203 


Procedures 


0286* 


#DFDI 




0204 


Procedures 


0289 


#DFLS 





Note: All messages are SYSLOG messages unless annotated with an asterisk. The asterisked messages are 
displayed messages. 

Figure 3-6 (Part 2 of 2). DFU Message-to-Module Cross Reference 
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PROCEDURES 

The following procedures are invoked by DFU when the 
applicable commands are entered. 



Enter Procedure 

When the ENTER command is entered, DFU invokes the 
following procedure. 



* ENTER F I LENAME, FORMAT, RPGNAME,# REC,DATA TYPE, CATL, LIBNAME, ,USERLIB, DISPLAY FORMAT SOURCE NAME 

// MEMBER PR0GRAM1-#DF#MG 

// MEMBER USERl-#DF#MG 

// IFF ?5'D'?/D #ERR 0201, C, DFU 

// IF DATAF1-?1R'0202'? #ERR 0203, C, DFU 

// IFF ?9'#LIBRARY'?/#LIBRARY IFF DATAFl-79? #ERR 0224, C, DFU 

// IF INQUIRY-NO IF ?11'1'?/ * 

// ELSE IF ?11'2'?/ * 

// IF ?2?/ * 0261 

// IF ?2R'0262'?/ #DFMP ?1? , ?2? , ?3? , ?10? , ?6? , ?7? , , ?9? ,E, #DF?WS??11? 

// ELSE IFF SUBR-'?2?,?9?' #DFMP ?1? , ?2? , ?3? , ?10? , ?6? , ?7? , , ?9? ,E, #DF?WS??11? 

// IFF 121/ IFF LOAD-'?2?,?9?' #ERR 0278, C, DFU 

// LOAD #DFEX 

// FILE NAME-#DFDATA, LABEL-? 1?,DISP-NEW,RETAIN-P, RECORDS-? 4R' 0207'? 

// RUN 

// DFU FL-?1?,FT-?2?,LB-?9?,DF-#DF?WS??11?,UT-E 

// END 

// LOAD #DFEX 

// FILE NAME-#DFDATA,LABEL-?1?,DISP-SHR,RETAIN-P 

// RUN 

// DFU FL-?1?,FT-?2?,LB-?9?,DF-#DF?WS??11?,UT-U 

// END 

// IFF ?2?/ RETURN 

// LOAD $MAINT 

// RUN 

// DELETE NAME-#DF?WS??11?, LIBRARY-ALL, LIBRNAME-79? 

// END 
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Update Procedure 

When the UPDATE command is entered, DFU invokes the 
following procedure. 



* UPDATE F I LENAME, FORMAT, RPGNAME, , DATA TYPE, CATL ,LIBNAME, ,USERLIB, DISPLAY FORMAT SOURCE NAME 

// MEMBER PR0GRAM1-#DF#MG 

// MEMBER USER1-#DF#MG : .. 

// IFF ?5'D'?/D #ERR 0201, C, DFU ' 

// IFF DATAF1-?1R'0208'? #ERR 0209, C, DFU / 

// IFF ?9'#LIBRARY'?/#LIBRARY IFF DATAFl-?9? #ERR 0224, C, DFU 

// IF INQUIRY-NO IF ?11'1'?/ * 

// ELSE IF ?11'2'?/ * 

// IF ?2?/ * 0261 

// IF ?2R'0262'?/ #DFMP ?1? , ?2? , ?3? , ?10? , ?6? , ?7? , , ?9? ,U , #DF?WS??11? 

// ELSE IFF SUBR- '?2?,?9? ' #DFMP ?1? , ?2? , ?3? , ?10? , ?6? , ?7? , , ?9? ,U , #DF?WS??11? 

// IFF ?2?/ IFF LOAD-'?2?,?9?' #ERR 0278, C, DFU 

// LOAD #DFEX 

// FILE NAME-#DFDATA,LABEL-?1?,RETAIN-P,DISP-SHR 

// RUN 

// DFU FT-?2?,UT-U,DF-#DF?WS??11?,LB-?9?,FL-?1? 

// END 

// IFF ?2?/ RETURN 

// LOAD $MAINT 

// RUN 

// DELETE NAME-#DF?WS??11?, LIBRARY-ALL, LIBRNAME-79? 

// END 



Inquiry Procedure 

When the INQUI RY command is entered, DFU invokes the 
following procedure. 



* INQUIRY F I LENAME, FORMAT, RPGNAME, , DATA TYPE ,CATL,LIBNAME , ,USERLIB, DISPLAY FORMAT SOURCE NAME 

// MEMBER PR0GRAM1-#DF#MG 

// MEMBER USER1-#DF#MG 

// IFF ?5'D'?/D #ERR 0201, C, DFU 

// IFF DATAF1-?1R'0210'? #ERR 0209, C, DFU 

// IFF ?9' #LIBRARY'?/#LIBRARy IFF DATAFl-79? #ERR 0224, C, DFU 

// IF INQUIRY-NO IF Pll'l'?/ * 

// ELSE IF ?11'2'?/ * 

// IF ?2?/ * 0261 

// IF ?2R'0262'?/ #DFMP ?1? , ?2? , ?3? , ?10? , ?6? , ?7? , , ?9? , I , #DF?WS??11? 

// ELSE IFF SUBR-'?2?,?9?' #DFMP ?1? , ?2? , ?3? , ?10? , ?6? , ?7? , , ?9? ,1 , #DF?WS??11? 

// IFF ?2?/ IFF LOAD-'?2?,?9?' #ERR 0278, C, DFU 

// LOAD #DFEX 

// FILE NAME-#DFDATA,LABEL-?1?,RETAIN-P,DISP-SHR 

// RUN 

// DFU FT-?2?,UT-I,LB-?9?,DF-#DF?WS??11?,FL-?1? 

// END 

// IFF ?2?/ RETURN 

// LOAD $MAINT 

// RUN 

// DELETE NAME-#DF?WS??11?, LIBRARY-ALL, LIBRNAME-P9? 

// END 
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List Procedure 

When the LIST command is entered, DFU invokes the follow- 
ing procedure. 



* LIST FILENAME, FORMAT, RPGNAME,SORT/NOSORT, DATA TYPE , CATL , LIBNAME ,MASTERNAME , USERLIB 

// MEMBER PR0GRAM1-#DF#MG 

// MEMBER USER1-#DF#MG 

// IFF ?5'D'?/D #ERR 0201, C, DFU 

// IFF DATAF1-?1R'0211'? #ERR 0209, C, DFU 

// IFF ?8?/ IFF DATAFl-78? #ERR 0290, C, DFU 

// IFF ?9'#LIBRARY'?/#LIBRARY IFF DATAFl-79? #ERR 0224, C, DFU 

// IFF ?4R'0274'?/ ,IFF ?4?/N0S0RT IFF ?4?/S0RT #ERR 0212,C,DFU 

// IF INQUIRY-NO IF ?11'1'?/ * 

// ELSE IF ?11' 2'?/ * 

// IF ?2?/ * 0261 

// IF ?2R'0262'?/ #DFMP ?1? , ?2? , ?3? , ?4? , ?6? , ?7? , ?8? , ?9? , L, #DF?WS??11? 

// ELSE IFF SUBR-'?2?,?9?' #DFMP ?1? , ?2? , ?3? , ?4? , ?6? , ?7? , ?8? , ?9? , L , #DF?WS??11? 

// IF ?4 'NOSORT'P/SORT IF JOBO^NO #DFST ?1? , ?2? , ?8? , ?9? , #DF?WS??11? 

//ELSE IF ?4?/S0RT #DFST ?1? , ?2? , ?8? , ?9? , #DF?WS?3 

// IF JOBQ-NO * 02 23 

// LOAD #DFEX 

// FILE NAME- #DFDATA, LABEL- ?1?,RETAIN-P,DISP-SHR 

// IF ?4?/S0RT FILE NAME- #DFTAG, LABEL- #DFTAG, RETAIN-S 

// IFF ?8?/ FILE NAME-#DFMAST,LABEL-?8?,RETAIN-P,DISP-SHR 

// RUN 

// DFU FT-?2?,DS-?4?,MF-?8?,LB-?9?,UT-L,DF-#DF?WS??11? 

// END 

// IFF ?2?/ RETURN 

// LOAD $MAINT 

// RUN 

// DELETE NAME-#DF?WS??ll?,LIBRARY-R,LIBRNAME-?9? 

// END 
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#DFMP Procedure 

#DFMP is invoked by DFU when DFU must enter the 
setup step. 

* #DFMP FILENAME, FORMAT, RPGNAME,SORT/NOSORT/DISPLAY SOURCE ,CATL,LIBNAME,MASTERNAME ,USERLIB,UTILTYPE, DEFAULT NAME 

// IFF ?9?/L IFF ?2?/ IF LOAD- ' ?2? , ?8? ' #ERR 0276, C, DFU 

// IFF ?9?/L IFF ?4?/ IF SOURCE- ' ?4? , ?8? ' #ERR 0277, C, DFU 

// IFF ?5'NN'?/NN IFF ?5?/Ny IFF ?5?/YN IFF ?5?/YY IFF ?5?/G0. #ERR 0205, C, DFU 

// IFF ?5?/NN IF ?6?/ #ERR 0214, C, DFU 

// IFF ?5?/NN IFF ?5?/NY IFF SOURCE- ' ?6? , ?8? ' #ERR 0206, C, DFU 

// IF ?5?/NY IF SOURCE- '?6?,?8?' #ERR 0204, C, DFU 

// IFF ?9?/L IFF ?4?/ IF ?4?/?6? #ERR 0275, C, DFU 

// IFF SOURCE-'?3R'0215'?,?8?' #ERR 0216, C, DFU 

// LOAD #DFMP 

// WORKSTN RESTORE- YES, UNIT-?WS? 

// RUN 

// DFU FL-?l?,FT-?2?,RG-?3?,DS-?4?,SP-?5?,SN-?6?,MF-?7? ,LB-?8?,UT-?9?,DF-?10? 

// END 

// IF ?9?/L RETURN 

// LOAD $SFGR 

// RUN 

// IF ?2?/ LOADMBR NAME- ? 1 0? , REPLACE-YES 

// ELSE LOADMBR NAME-72? 

// INOUT PRINT-NO, INLIB-?8?,OUTLIB-?8? 

// IF ?4?/ CREATE SOURCE-?10? , NUMBER- 32 

// ELSE CREATE SOURCE-? 4? , NUMBER- 3 2 

// END 

// IFF ?4?/ RETURN 

// LOAD $MAINT 

// RUN 

// DELETE NAME-?10?,LIBRARY-S,LIBRNAME-?8? 

// END 

#DFST Procedure 

DFU invol<es this procedure when modules are required for 
a list with sort. 



* #DFST FILENAME, FORMAT, MASTER NAME, USER LIBRARY, DEFAULT NAME 

// IF JOBQ-NO * 0219 

// LOAD #DFSB 

// RUN 

// DFU FL-?l?,FT-?2?,MF-?3?,LB-?4?,DF-?5? 

// END 

// LOAD #GSORT 

// FILE NAME-INPUT, LABEL-?1?,DISP-SHR 

// FILE NAME-OUTPUT, LABEL-#DFTAG,RETAIN-J,BLOCKS-10 

// RUN 

//■ SOURCE ?5?,?4? 

// LOAD $MAINT 

// RUN 

// DELETE NAME-75?, LIBRARY- S,LIBRNAME-? 4? 

// END 
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DFUDROP Procedure 

DFU invokes this procedure when requested to delete DFU 
fronri a specified library. 

* 5726-UTl COPYRIGHT IBM CORP 1977 LICENSED MATERIAL - PROGRAM PROPERTY OF IBM 

* DFUDROP USERLIB 

// MEMBER PR0GRAM1-#DF#MG 
// MEMBER USER1-#DF#MG 
// IF JOBQ-NO * 0221 
// LOAD $MAINT 
// RUN 

// DELETE NAME-ENTER,LIBRARY-P,LIBRNAME-?1'#LIBRARY'? 
// DELETE NAME-UPDATE,LIBRARY-P,LIBRNAME-?1'#LIBRARY'? 
// DELETE NAME-INQUIRY,LIBRARY-P,LIBRNAME-?1'#LIBRARY'? 
// DELETE NAME-LIST,LIBRARY-P,LIBRNAME-?1'#LIBRARY'? 
// DELETE NAME-DFUSAVE,LIBRARY-P,LIBRNAME-?1' #LIBRARY'? 
// DELETE NAME-DFUL0AD,LIBRARY-P,LIBRNAME-?1'#LIBRARY'? 
// DELETE NAME-#DF.ALL,LIBRARY-P,LIBRNAME-?1'#LIBRARY'? 
// DELETE NAME-#DF.ALL,LIBRARY-0,LIBRNAME-?1'#LIBRARY'? 
// DELETE NAME-DFUDR0P,LIBRARY-P,LIBRNAME-?1'#LIBRARY'? 
// END 

DFULOAD Procedure 

DFU invokes this procedure when requested to load DFU 
into a specified library. 

// MEMBER PR0GRAM1-#DF#MG 
// MEMBER USER1-#DF#MG 
// IF JOBQ-NO * 0222 



DFUSAVE Procedure 

DFU invokes this procedure when requested to save DFU 
on diskette. 

* DFUSAVE USERLIB-NAME 

// MEMBER PR0GRAM1-#DF#MG 

// MEMBER USER1-#DF#MG 

// IF JOBQ-NO * 0220 

// LOAD $MAINT 

// FILE PACK-PPUTIL,UNIT-I1,RETAIN-99 9,NAME-DFU 

// RUN 

// COPY FR0M-?1'F1'?,T0-DISK,FILE-DFU,NAME-DFUDR0P,LIBRARY-P 

// COPY FR0M-?1 'Fl ' ?,TO-DISK, FILE-DFU, NAME-ENTER, LIBRARY-P, ADD-YES 

// COPY FR0M-?1'F1'?,T0-DISK,FILE-DFU,NAME-UPDATE,LIBRARY-P,ADD-YES 

// COPY FROM- ? 1 • Fl • ? , TO-DISK , FILE-DFU , NAME- INQUIRY , LIBRARY-P , ADD-YES 

// COPY FR0M-?1'F1'?, TO-DISK, FILE-DFU, NAME-LIST, LIBRARY-P, ADD-YES 

// COPY FROM- ? 1 • F 1 ' ? , TO-DI SK , FILE-DFU , NAME-DFUSAVE , LIBRARY-P , ADD-YES 

// COPY FROM- ? 1 • Fl ' ? , TO-DI SK , FILE-DFU , NAME-DFULOAD , LIBRARY-P , ADD-YES 

// COPY FR0M-?1'F1 '?, TO-DISK, FILE-DFU, NAME- #DF. ALL, LIBRARY-P, ADD- YES 

// COPY FR0M-?1'F1' ?, TO-DISK, FILE-DFU, NAME-#DF. ALL, LIBRARY-0, ADD-YES 

// END 
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Chapter 4. Source Entry Utility 



Introduction 

The source entry utility (SEU) portion of the Utilities 
Program Product is used to create and maintain source and 
procedure members in System/34 libraries. SEU operates 
in five modes: 

o Enter/update, to enter and change statements under 
control of display screen formats. 

• Delete, to delete statements from members. 

• Move, to move statements within a member. 

o Include, to include statements in a member from another 
or from the same member. 

A 

o Scan, to scan a member for a particular statement. 

HOW THE PROGRAM WORKS 

The operator signs on SEU by entering the SEU command. 
Parameters in the command specify, either explicitly or by 
default: member name, member type, format member 
name, statement length, and library name. 

After sign-on, SEU is in the enter/update mode. The 
operator can select a different mode by pressing one of the 
SEU command function keys. The operator requests 
specific functions in each mode by entering responses to 
the SEU prompts and by pressing command function keys. 

Data entered and changes made by the operator are stored 
in the SEU work file until SEU end of job. The SEU work 
file is a disk work area labeled #SEU#.nn, where nn is the 
ID of the SEU operator's display station. At normal SEU 
end of job, the contents of the work file are copied to the 
library identified by the SEU command, and the work file 
is deleted. 



PHYSICAL CHARACTERISTICS 

SEU is composed of 32 load members, four procedure 
members, two source members, and 16 expansion buffers. 



Load Members 

• #SEU-common. #SEU contains the following routines, 
and must not be overlaid: 

SEUPNT— printer interface 
SEUKEY— display station interface 
SEUDM— work file data management 
SEUMSG— warning message 

o #SEIN-initialization 

o #SELL-Roll t (Roll Up), Roll I (Roll Down), and 
search end of source interface. 

• #SEDX— work file data management for deleting state- 
ments, counting statements, and chaining new index 
sectors to the index area in the work file. 

® Mode execution: 

#SEET-enter/update 

#SEDL-delete 

#SEMV-move 

#SE 10 and #SE ID-include 

#SEAN-scan 

o Syntax checkers for RPG II and auto report specifications: 
#SERA, #SERB, #SERC, and #SERD-calculation 
#SE RE— control, option, copy, extension, and line 

counter 
#SERF, #SERG, and #SERH-file description 
#SERIand#SERJ-input 
#SERL— extension 
#SERO and #SERP-output 
#SERT and #SERU— telecommunications 

• #SEEOand#SEEJ-SEUendof job. 

• #SE@FMT— display screen formats for SEU prompts and 
messages. 
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« #SE@FORM and #SE@XTRA-supplied display screen 
formats for entering and updating statements. 

© #SE#I\/I1 and #SE#1VI2-Ievel 1 and level 2 messages, 
respectively. 

The control flow between load members is illustrated in 
Program Organization, in this chapter. An alphabetical 
listing of member names with a short description of each 
member is contained in Directory, in this chapter. 



Output from SEU is: 

• A new or changed member in the specified library. 

• Required messages. 

• Selected printed statements if the print option is used. 

© A listing of the new or changed member if a listing is 
requested. 



Procedure Members 

SEU signs on SEU. 

SEUDROP deletes SEU from a library. 

SEU LOAD issues a load message. 

SEUSAVE saves SEU on a diskette. 

The contents of the procedure members are listed in the 
Program Organization section of this chapter. 



I/O STORAGE REQUIREMENTS 

SEU requires 14K (14,336) bytes of main storage. 

SYSTEM CONFIGURATION 

SEU runs on all models of System/34. 



Source Members 

#SE@FORM and #SE@XTRA contain the display screen 
format specifications that define the display screen formats 
supplied with SEU. 



Expansion Buffers 

So that SEU remains a fixed size, SEU contains 16 expan- 
sion buffers to absorb any increase in code caused by 
changes to SEU. The buffers are labeled #SESO through 
#SES15. 



INPUT/OUTPUT 

After the operator signs on SEU, input to the program 
consists of: 

o A copy of the selected member in the SEU work file 
if the member already exists in a library. 

® Responses to SEU prompts. 

o Data entered from the keyboard if the operator enters 
or updates statements. 
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Method of Operation 



From: System 



INPUT 

Keyboard input 
Library members 




PROCESS 



Initialization, Diagram 4-2. 
Processing, Diagram 4-3, 
End of Job, Diagram 4-4. 



r 




OUTPUT 



Disk: New or updated 
library member 



Diagram 4-1 i SEU Overview 



To: System 
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INPUT 



From: Common Routine 
{#SEU) 

PROCESS 



Keyboard: SEU 
command or OCL 
statements 

Disk: SEU procedure 

Main storage: Names 
of SEU routines 

Disk: Display screen 
formats 

Disk: Member to 
be processed 

Main storage: Pre- 
open disk DTF 



Main storage: Post- 
open disk DTF 

Disk: Work file 



Disk: Member to 
be processed 




Diagram 4-2 (Part 1 of 2). Initialization 



Reads and diagnoses the SEU control 
statements. 



Locates all the needed SEU routines. 

Finds the names of the display screen 
formats in the first two sectors of the 
format load member and determines 
which ones are valid. 

Finds the member to be processed and 
determines how many statements are in 
the member. 

Allocates and opens the work file. 

If the run is a recovery run, rebuilds the 
work file. Then exits to enter/update. 

Writes the work file record. 



If the member exists in the library, copies 
the statements into the work file. 



[ 



OUTPUT 



SEU communications 
area: Parameter lists 
for SEU routinesi 

Display screen: Name 
of routine not found 



MM f C Main storage: Post- 
Em — tr^open disk DTF 



=>0 



I^Disk: Work file 




To: Enter/Update 
(#SEET) 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Reads, by way of SYSIN, the SEU control statements SEU NAME-. . . and END. Diagnoses the two statements. 
If either is in error, calls SYSLOG to issue a message and cancels the job. SYSIN and SYSLOG are described 
in the publication SSP Logic System. 

Finds the SEU routines. Builds parameter lists for loading the routines and saves the parameter lists in the 
SEU communications area. If a routine is not found, calls SYSLOG to issue an error message and cancels 
the job. 

Finds directory entries for the format load member(s). Finds in the first two sectors of the format member(s) 
indexes of the display screen formats and determines which formats are valid. The format length of valid 
formats must be equal to or greater than 1, and equal to or less than 120. The indexes of valid formats are 
saved by #SEIN. 

Finds the member to be processed and determines the number of statements in the member. If the member 
is not found, initialization assumes the member will be created. 

Allocates and opens the work file. Calculates the start and end extents of the index for the work file, and 
calculates the start and end extents of the statement area. 

If the job is a recovery run, rebuilds the index from the statement area. Also determines whether or not the 
parameters in the SEU command for the recovery run are the same as the parameters saved in the work file 
record (the work file record is described in Data Areas, in this chapter). If the parameters are not the same, 
calls SYSLOG to issue an error message and cancels the job. When the work file is rebuilt, passes control to 
enter/update (#SEET). 

Creates the work file record and writes it to the work file. 

If the job is not a recovery run and the member to be processed exists, calls the source library get routine 
(#I\/1ASGT) to copy statements from the member to the work file. The source library get routine is described 
in the publication SSP Logic: System. 



#SEIN 



Diagram 4-2 (Part 2 of 2). Initialization 
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■INPUT 



From: Initialization (Diagram 4-2) or 
Display Station Interface 
(SEUKEY) in Common Routine 
(#SEU) _ 

PROCESS 



Disk: Format load 
member(s) 



Keyboard: 

• Data 

• Function 
control keys 

• Command 
function keys 

Disk: Work file 

Disk: Include 
member(s) 




Enters/updates statements. Goes to step 
2, 3, 4, or 5 or exits to SEU end of job. 



Deletes statements. Goes to step 1, 3, 4, 
or 5 or exits to SEU end of job. 



Moves statements. Goes to step 1, 2, 4, 
or 5 or exits to SEU end of job. 



Includes statements. Goes to step 1, 2, 
3, or 5 or exits to SEU end of job. 

Scans statements. Goes to step 1 , 2, 3, 
or 4 or exits to SEU end of job. 



OUTPUT 



^ 



> 




Printer: Printed 
statements 

Display screen: 
Prompts and 
messages 

Disk: Updated 
work file 



Display screen: 
Prompts and 
messages 



To: SEU End of Job 
(Diagram 4-4) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Enter/update allows the operator to enter new statements into a member and to update existing statements 
in a member. Statements are entered or updated under control of display screen formats, if the member 
type specified in the SEU command is A or R, SEU can check the syntax of statements entered or updated 
under control of the supplied RPG II or auto report formats. Statements that are entered or updated can 
also be printed. 

Delete allows the operator to delete statements from a member. If no statements exist in the member, the 
delete mode is not allowed. Statements that are deleted can also be printed. 

Move allows the operator to move statements from one location in a member to a new location in the same 
member. The statements are deleted from the original location. If no statements exist in the member, the 
move mode is not allowed. Statements that are moved are not printed. 

Include allows the operator to include existing statements in the member being processed. Statements are 
included from a source or procedure member that exists in a library. Statements that are included can also 
be printed. 

Scan searches a member for a statement that contains a string of characters specified by the operator. If no 
statements exist in the member, the scan mode is not allowed. 



#SEET 



#SEDL 
#SEMV 

#SEIC 

#SEAN 



Diagram 4-3. Processing 
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I INPUT 



From: 

• Display Station Interface (SEUKEY) in Common Routine (#SEU) 

• Enter/Update (#SEET) 

• Delete (#SEDL) 

• Move (#SEMV) 

• Include (#SEIC) 

• Scan (#SEAN) 
PROCESS nmmm^^mmmmmnm 




Key boa ra: 

• Response 

• Function 
control keys 

Main storage: Pre- 
open disk DTF 

Disk: 

• Work file record 
O Work file 

• Work library 

Keyboard: Response 



Disk: Work file 
VTOC entry 



Prompts for end-of-job option and checks 
the response. 



Issues additional prompts for serialization 
and for procedure members. Checks all 
responses. 

Allocates a work library for compressed 
statements. 



Creates a directory entry for the member. 



|Uses the library record put routine to copy 
statements from the work file to the 
work library. 

Uses the library sector get/put routine to 
copy the member from the work library 
to a library. 

Prints statements if a listing is requested. 

Releases the space occupied by the 
work file. 



;=> 



OUTPUT 



Display screen: 
Prompts and 
messages 



Main storage: Post- 
open disk DTF 

Disk: Work library 



:> 



Disk: Replaced 
member 

Printer: Listing 



Disk: Work file VTOC 
entry 




Diagram 4-4 (Part 1 of 2). End of Job 



SSP Termination 

Interface 

(#CTEIF) 
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DESCRIPTION 



MODULE/ 
ROUTINE 



BU^ Displays end-of-job options through 5. Checks the validity of the response. 

1^ If serialization is requested (end-of-job option 3 or 4) and the member in the work file contains statements, 
end of job issues additional prompts and checks the validity of each response: 

• If the member in the work file is not a procedure member (member type not P) and the statement length of 
the member is 80 or more, end of job prompts for an indication of program name duplication. 

• End of job prompts for a serial start position. 

• If the member in the work file is a procedure member (member type P), end of job prompts for options 
related only to procedures. 

|gj Calculates size of work library and requests work library space to contain the statements in the work file 
after the statements are compressed. 

m Creates a directory entry for the member that was created or changed during the job. 

Qj Uses the library record put routine (SMAPUR) to move statements one at a time from the work file to the 
work library. Statements are compressed . they are moved. If serialization is requested, statements are 
serialized as they are placed in the work ' ^rary. The library record put routine is described in the publica- 
tion SSP Logic: System. 

K^ Uses the library sector get/put routi.i ($MAPGS) to copy the member from the work libra' '> the library 
specified by the SEU command. Tiie library sector get/put routine is described in the pub.u - .on SSP 
Logic: System. 

WH If a listing is requested, uses the printer data management routine (#DPDM) to list statements from the 
work file (if serialization is also requested, serializes the statements before printing them). Statements are 
printed after they are copied to the library specified by the SEU command. 

Es Changes the retain status of the work file from T to S. 



#SEEO 
#SEEJ 



Diagram 4-4 (Part 2 of 2). End of Job 
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Program Organization 

This section illustrates control flow between SEU members 
for SEU sign-on and SEU operation. Figure 4-1 illustrates 
sign-on, and Figure 4-2 illustrates operation. 



SEU command 



SEU procedure 



^EU 



#SEIN 



#SEET 



f Operation j 



Figure 4-1. Control Flow for SEU Sign-On 
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r#SEU {SEUKEY)J 



#SEET 



c 




#SEMV #SEIC #SEAN 



#SE@FORM, 
#SE@XTRA, 
and user- 
created format 
members 



Called as required; return is to caller 

^#SEDXj- ' ' '\ ■ ' 

:'#seid7#sell : -- ~ 

Referred to as required 
, #SE@FMT, #SE#M1 , #SE#M2' 



#SEEO 

#SE#IVI1,#SE@FMT 
as required 



■#SERE 
•#SER 



-' -#SERF 



#SERG 
■#SERH 






-#SERI -1 

-#SERJ.-J 

*#SERC 

-#SERB 

-*-#SERA 




#SE@FMT, #SE#1VI1 
as required 



#SERD* 
-#SERO— 1 

#SERP-J 
-#SERT— I 

#SERU-J 



, ■, , 



Return 



) 



Figure 4-2. Control Flow for SEU Operation 
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Directory 

Module 
Name 

#SE#M1 

#SE#M2 

#SE@FMT 

#SE@FORM 



^^E@XTRA 



#SEAN 
#SEU 



#SEDL 
#SEDX 



#SEEJ 



^EEO 



Major Functions 

Contains level 1 messages issued by SEU. 

Contains level 2 messages issued by SEU. 

Contains display screen formats for SEU 
prompts and messages. 

Contains the SEU-supplied free-form 
formats and SEU-supplied display screen 
formats for display screen format, RPG II 
and auto report, and work station utility 
specifications. 

Contains SEU-supplied display screen 
formats for assembler, magnetic 
character reader, sort, and FORTRAN 
IV specifications. 

Scans a member for a statement that 
contains a specified character string. 

Loads the SEU communications area 
and the four main storage resident 
routines (SEUDM, SEUKEY, SEUMSG, 
and SEUPNT). 

Deletes statements from the member 
being worked on. 

Performs the following data management 
operations on the SEU work file: deletes 
statements, counts statements, and chains 
new index sectors to index. 

Checks and reformats statement number 
responses. 

Copies the statements from the SEU 
work file into the library member. Per- 
forms statement serialization, program 
name duplication, and member listing 
as requested. Deletes the SEU work file. 

Allocates a printer to SEU if printing is 
requested, changes the number of display 
screen lines per statement, displays the 
command function key display, and 
displays and handles the response to the 
end-of-job options. 



Module 
Name 

#SEET 



#SEIC 



#SEID 



#SEIN 



#SELL 



#SEMV 



#SERA 



#SERB 
#SERC 
#SERD 
ifjfSERE 



Major Functions 

Enters statements into the member or 
updates statements that already exist in 
the member. Retrieves selected display 
screen formats. If print option is on, 
uses printer data management (#DPDM) 
to print statements. 

Includes statements from a member in a 
library into the member being worked on. 
Performs roll up and search end of source 
functions for include members. If print 
option is on, uses printer data manage- 
ment (#DPDM) to print statements. 

Checks responses to INCLUDE 
LIBRARY NAME and INCLUDE 
MEMBER NAME. Changes the roll 
factor. 

Initializes variables and diagnoses the 
SEU control statements. If it already 
exists, copies the member being worked 
on into the work file from the library. 

Performs roll up, roll down, and search 
end of source functions on all members 
except include members. 

Moves statements to a new location and 
deletes them from their old location in 
the member being worked on. 

Continues syntax-checking RPG II 
calculation specification (phase 3 of 4). 
Syntax checks all specifications that have 
a slash (/) in position 7. 

Continues syntax-checking RPG II 
calculation specification (phase 2 of 4). 

Syntax checks RPG II calculation 
specification (phase 1 of 4). 

Continues syntax-checking RPG II 
calculation specification (phase 4 of 4). 

Syntax checks RPG II control, extension, 
and line counter specifications; and auto 
report option and /COPY specifications 
(phase 1 of 2). 
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Module 

Name Major Functions 

#SERF Syntax checks RPG II file description 

specification (phase 1 of 3). 

#SERG Continues syntax-checking RPG II file 

description specification (phase 2 of 3). 



#SERH Continues syntax-checking RPG II file 

description specification (phase 3 of 3). 

#SERI Syntax checks RPG II input specification 

(phase 1 of 2). 

#SERJ Continues syntax-checking RPG II input 

specification (phase 2 of 2). 

#SERL Continues syntax-checking RPG II exten- 

sion specification (phase 2 of 2). 

#SERO Syntax checks RPG II output specifica- 

tion (phase 1 of 2). 

#SERP Continues syntax-checking RPG II output 

specification (phase 2 of 2). 

#SERT Syntax checks RPG II telecommunica- 

tions specification (phase 1 of 2), 

#SERU Continues syntax-checking RPG II tele- 

communications specification (phase 2 
of 2). 

#SESO through Reserve space for expansion. 
#SES15 

SEUDM Performs data management functions for 

the SEU disk work file. 

SEUKEY Provides SEU with an interface to the 

display station. 

SEUMSG Retrieves messages needed by SEU from 

#SE#M1 and#SE#iV12. 

SEUPNT Provides SEU with an interface to the 

printer. 
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Data Areas 



Work File Record 



This section describes the SEU communications area and 
the SEU work file, both of which are used by more than 
one SEU module. For a detailed description of field 
contents of all SEU data areas, see the SEU microfiche. 
For a description of system data areas used by SEU, see the 
Data Areas and Diagnostic Aids Handboo/<. 



COMMUNICATIONS AREA 

The SEU communications area contains constants, variables, 
pointers, keywords, and DTFs that are used by more than 
one SEU module. The communications area is initialized 
by #SEU and is included in each executable SEU load 
member. The communications area is 3328 (hex ODOO) 
bytes long and begins in main storage at label SEUINCOM. 



WORK FILE 

The SEU work file is organized as follows: 

I Work File Record | Index Area [ Data A rea I 

Always 6 sectors Variable length Variable length 



SEUWBEXT in the SEU communications area contains the 
3-byte disk address of the start of the work file record. The 
work file record, which is initialized by #SEIN, occupies 
the first six sectors of the SEU work file. 

The first sector contains information about the SEU job. 
This information is required for recovery of the work file 
in the event of a system failure. The sector definition 
begins in the load member #SEIN at SINWABUF, and in 
the load member #SEEJ at SEJWABUF. 

The second sector of the work file record contains index 
values for all displays shown on the display screen by each 
of the five SEU modes. The sector definition begins in the 
load member #SEET at SSFUBBF. 

The last four sectors of the work file record contain index 
values for the display screen formats available for entering 
and updating statements. The values refer to display 
screen formats in #SE@FORM and, if the member is 
specified in the SEU command„#SE@XTRA or a format 
member created by the user. The four sectors can contain 
a maximum of 64 index values (64 is the maximum 
number of statement display screen formats available for 
one SEU job). The definition of the four sectors 
begins in the load member #SEET at SSFUBBF. 

Labels and contents of the work file record are summarized 
in the following illustration. 
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SINWABUF in #SEIN 
SEJWABUF in #SEEJ 



SINWA2in#SEIN SSFUBBF in #SEET 



Job Information 
for Recovery 



Index Values for 
SEU Mode 
Displays 



Index Values for Enter/Update Display Screen Formats 



Index Area 

The index area In the SEU work file contains an index of 
the statements in the work file data area. The following 
fields in the SEU communications area identify and define 
the index area: 

• SEUXBEXT-Contains the 3-byte disk address of the 
start of the index area. 

• SEUXLEXT-A one-byte field that identifies the 
number of sectors in the index area. 

• SDMXSECT-A 256-byte definition of each sector in 
the index area. 



Data Area 

The data area in the SEU work file contains one record for 
each statement In the member being created or changed. 
Each record contains a packed statement number and one 
statement. The following fields in the SEU communica- 
tions area identify the data area: 

• SEUDBEXT-Contains the 3-byte disk address of the 
start of the data area. 

• SEUDLEXT— A one-byte field that Identifies the number 
of sectors in the data area. 
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Diagnostic Aids 

This section presents diagnostic information unique to SEU. 
Diagnostic aids common to all of System/34 are described 
in the Data Areas and Diagnostic Aids Handbook. 



MESSAGES 

Figures 4-3 and 4-4 relate all SEU message identification 
codes (MICs) to the SEU modules that diagnose error condi- 
tions. Messages from the syntax checkers are described in 
the SEU Reference Manual. All other messages are described 
in the Displayed Messages Guide. 



MIC 


Diagnosing Module 


0101 


SEU procedure 


0102 


SEU procedure 


0103 


SEULOAD procedure 


0104 


SEU procedure 


0105 


SEUDROP procedure 


0106 


SEUSAVE procedure 


0201 


SEU procedure 


0204 


SEU procedure 


0301 


#SEIN (issued by SYSLOG) 


0302 


#SEIN (issued by SYSLOG) 


0305 


#SEIN (issued by SYSLOG) 


0307 


#SEIN (issued by SYSLOG) 


0309 


#SEIN (issued by SYSLOG) 


0313 


#SEIN (issued by SYSLOG) 


0315 


#SEIN (issued by SYSLOG) 


0327 


#SEIN 


0435 


#SEDL 


0436 


#SEMV 


0437 


#SEIC 


0501 


#SEET 


0502 


#SEDL, #SEET, #SEIC, #SEMV 


0503 


#SEDL,#SEMV 


0504 


#SEDL 


0505 


#SEMV 


0506 


#SEMV 


0507 


#SEMV 


0508 


#SEET 


0509 


#SEET 


0510 


#SEAN, #SEDL, #SEEJ, #SEET, 




#SEIC,#SEID, #SEMV 


0511 


#SEIC,#SEID 


0512 


#SEIC 


0513 


#SEIC 


0514 


#SEIC 


0515 


#SEIC 


0516 


#SEIC 



MIC 


Diagnosing Module 


0517 


#SEET 


0518 


#SEET 


0519 


#SEID 


0522 


#SEEJ 


0523 


#SEEO 


0524 


#SEEJ 


0525 


#SEEJ 


0526 


#SEEJ 


0528 


#SEEO 


0530 


#SEMV 


0531 


#SEET 


0533 


#SEID 


0538 


#SEIN (issued by SYSLOG) 


0539 


^EIN 


0540 


#SEID 


0543 


#SEIN 


0544 


#SEIN 


0545 


#SEIN (issued by SYSLOG) 


0546 


#SEIN (issued by SYSLOG) 


0549 


#SEEJ (issued by SYSLOG) 


0550 


#SEEJ (issued by SYSLOG) 


0552 


#SEIN (issued by SYSLOG) 


0553 


#SEIN (issued by SYSLOG) 


0555 


#SEEJ 


0558 


#SEET 


0561 


#SEEO (issued by SYSLOG) 


0562 


#SEEO (issued by SYSLOG) 


0564 


^EIN 


0565 


#SEAN 


0566 


^EAN 


0567 


#SEAN 


0568 


^EAN 


0569 


#SEAN,#SEET 


0570 


#SEEJ 


0571 


#SEEO 



Figure 4-3. Level 1 Messages for SEU 
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Mrc 


Diagnosing Module 


0307 


#SEIN 


0309 


^EIN 


0313 


#SEIN 


0315 


#SEIN 


0538 


#SEIN 


0545 


#SEIN 


0546 


#SEIN 


0550 


#SEEJ 


0552 


#SEIN 


0553 


#SEIN 


0561 


#SEEO 


1001 


#SEET,#SERA 


1002 


#SERE, #SERF, #SERI, #SERO, 




#SERT 


1009 


#SERA 


1081 


#SERE 


1101 


#SERF,#SERH 


1102 


#SERG 


1103 


#SERG 


1104 


#SERG 


1105 


#SERG 


1105 


#SERH 


1107 


#SERH 


1108 


#SERG 


1109 


#SERH 


1110 


#SERH 


1111 


#SERH 


1112 


#SERH 


1113 


#SERG 


1114 


#SERF 


1115 


#SERF 


1116 


#SERH 


1117 


#SERG 


1118 


#SERG 


1120 


#SERG 


1121 


#SERG 


1122 


#SERH 


1123 


#SERH 


1124 


#SERH 


1125 


#SERH 


1126 


#SERH 


1127 


#SERH 


1128 


#SERG 


1129 


#SERH 


1130 


#SERH 


1132 


#SERF 


1133 


#SERF 


1134 


#SERF 


1201 


#SERE 


1202 


#SERE 


1203 


#SERE 


1204 


#SERL 



MIC 


Diagnosing Module 


1205 


#SERL 


1206 


#SERL 


1207 


#SERL 


1208 


#SERE 


1209 


#SERL 


1210 


#SERL 


1251 


#SERE 


1252 


#SERE 


1301 


#SERT 


1302 


#SERT 


1303 


#SERT 


1305 


#SERT 


1306 


#SERT 


1307 


#SERU 


1308 


#SERU 


1309 


#SERU 


1310 


#SERU 


1311 


#SERT 


1312 


#SERT 


1313 


#SERU 


1314 


#SERU 


1315 


#SERT 


1316 


#SERT 


1317 


#SERT 


1401 


#SERI 


1402 


#SERI,#SERJ 


1403 


#SERI 


1404 


#SERJ 


1405 


#SERJ 


1406 


#SERI 


1407 


#SERJ 


1408 


#SERJ 


1410 


#SERI 


1411 


#SERJ 


1412 


#SERJ 


1413 


#SERJ 


1414 


#SERJ 


1415 


#SERD 


1416 


#SERJ 


1417 


#SERJ,#SERP 


1418 


#SERJ 


1419 


#SERI 


1420 


#SERI 


1421 


#SERI 


1501 


#SERD 


1502 


#SERD 


1503 


#SERB,#SERC 


1504 


#SERB, #SERC 


1505 


#SERB,#SERC 


1506 


#SERC, #SERD 


1507 


#SERA,#SERB,#SERD 



Figure 4-4 (Part 1 of 2). Level 2 Messages for SEU 
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MIC 


Diagnosing Module 


1508 


#SERB,#SERD 


1509 


#SERB 


1510 


#SERA 


1511 


^ERA 


1512 


^ERA 


1513 


#SERA 


1514 


#SERA 


1515 


#SERA 


1601 


#SERO 


1602 


#SERO 


1603 


^ERO 


1604 


#SERO 


1605 


#SERP 


1606 


#SERO,#SERP 


1607 


^ERO 


1608 


^ERP 


1609 


^ERO 


1610 


#SERO 


1611 


#SERO 


1612 


#SERP 



Figure 4-4 (Part 2 of 2). Level 2 Messages for SEU 
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MAIN STORAGE STATUS FOR SEU MEMBERS 

Three fields in main storage identify SEU members present 
in main storage. 

o SEUINSUB + {X'07' through X'OB'). Contains the 
hexadecimal representation of the name of the SEU load 
member last called by the executing SEU mode member. 

© SEUMLOAD + (X'07' through X'OB'). Contains the 
hexadecimal representation of the name of the SEU 
mode member currently in main storage. Mode 
members are #SEAN (scan), #SEDL (delete), #SEET 
(enter/update), #SEIC (include), and #SEMV (move). 
#SEEJ (end of job) is named at the same location. 

• SEUMODE. A 1 -byte field that indicates the current 
mode of SEU: 



Value 


Meaning 


X'80' 


Enter/update 


X'40' 


Delete 


X'20' 


IVIove 


X'10' 


Include 


X'08' 


Scan 


X'OO' 


Initialization or end of job 


PROCEDURES 




SEU 




The procedure member SEU contains: 



* 5726-UTl COPYRIGHT IBM CORP 1977 REFER TO COPYRIGHT 

* INSTRUCTIONS FORM NO. G120-2083. 
// MEMBER USER1-#SE#M1 

// MEMBER USER2-#SE#M2 

// MEMBER PR0GRAM1-#SE#M1 

// MEMBER PROGRAM2-#SE#M2 

// * 0104 

// IF ?1R'0101'?/ #ERR 0201, C, SEU 

// IF ?2R'0102'?/ #ERR 0204, C, SEU 

// LOAD #SEU 

// WORKSTN RESTORE- YES, UNIT- ?WS? 

// RUN 

// SEU NAME-? 1?, TYPE-? 2?, FORMAT-? 3?, LENGTH-? 4?, LIBRARY-? 5? 

// END 
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The SEU procedure is c?lled by the SEU command: 

SEUp1,p2,p3.p4,p5 

where the positional parameters have the following 
meanings: 



Parameter 


Meaning 


pi 


Member name 


P2 


Member type 


P3' 


Format member name 


P4 


Statement length 


P5 


Library name 



The OCL statements generated by the SEU procedure are: 



// MEMBER USER1-#SE#M1 

// MEMBER USER2-#SE#M2 

// MEMBER PR0GRAM1-#SE#M1 

// MEMBER PROGRAM2-#SE#M2 

// LOAD #SEU 

// WORKSTN RESTORE-YES, UNIT- ?WS? 

// RUN 

// SEU NAME-pl,TYPE-pl,FOR]^lAT-p3,LENGTH-p4,LIBRARY-p5 

// END 



SEUDROP 



SEUDROP contains: 



// MEMBER USER1-#SE#M1 

// * 0105 

// LOAD $MAINT 

// RUN 

// DELETE NAME-#SE.ALL,LIBRARY-ALL,LIBRNAME-?1'#LIBRARY'? 

// DELETE NAME-SEU,LIBRARY-P,LIBRNAME-?1'#LIBRARY'? 

// DELETE NAME-SEUL0AD,LIBRARY-P,LIBRNAME-?1'#LIBRARY'? 

// DELETE NAME-SEUSAVE,LIBRARY-P,LIBRNAME-?1'#LIBRARY'? 

// DELETE NAME-SEUDR0P,LIBRARY-P,LIBRNAME-?1' #LIBRARY'? 

// END 
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SEULOAD 

SEULOAD contains: 



// MEMBER USER1-#SE#M1 , 

// * 0103 

* THIS PROCEDURE IS HERE ONLY FOR S-32 COMPATIBILITY 



SEUSAVE 

SEUSAVE contains: 



// MEMBER USER1-#SE#M1 

// * 0106 

// LOAD $MAINT 

// FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEU 

// RUN 

// COPY FR0M-?1'F1'?,T0~DISK,FILE-SEU,NAME-#SE. ALL, LIBRARY-ALL 

// COPY FROM-? l'Fl'?,TO-DISK,FILE-SEU,Ni^jyiE-SEU. ALL, LIBRARY-P, ADD- YES 

// END 
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Chapter 5. Sort 



Introduction 

The sort program Is designed to sort records from a disk 
file. Sorting is based on control field values from within 
each input record. Records are selected for or omitted 
from a sort according to their record types. The record 
types are determined by comparing fields to constants, to 
other fields within the same record, or to all or part of the 
program date. The include sets and omit sets that differ- 
entiate the record types are created by using OR conditions, 
AND conditions, or a combination of both. The sort pro- 
gram performs three types of ascending and descending 
sorts: an addrout sort, a tagalong sort, or a summary tag- 
along sort. 

The sort program manipulates data contained in a user data 
file on disk. The user data file remains intact unless it is 
overlayed by the output file. The output of the sort pro- 
gram is part or all of the input data or 3-byte binary relative 
record numbers for some or all of the records in the input 
file. 



HOW THE PROGRAM WORKS 

The sort program has two parts: generation and execution. 
During generation, the sort sequence specifications are read 
and diagnosed; the specifications and diagnostic messages 
are printed if requested; the select/build routine is gener- 
ated; and the sort Is designed. During execution, the input 
records are read; the select/build routine determines which 
input records to include in the sort; a work record is built 
for each input record to be included in the sort; the work 
records are sorted, generating strings on a work file; the 
strings are merged in ascending or descending sequence 
until the number of strings remaining can be handled by a 
final merge; then the sorted work records are written to the 
output file as the final merge is performed. 



PHYSICAL CHARACTERISTICS 

The sort program consists of the following: 

• Thirty-four load modules 

• One message member (#GS#MM) 

• Four procedures 

• Fifteen expansion buffers (#GSS0-#GSS14) used to 
maintain the sort program at a fixed size on disk 



INPUT/OUTPUT 

The output of an addrout sort is an output file (addrout 
file) containing 3-byte binary relative record numbers of 
some or all of the input records. Zero indicates the first 
record in the output file. The output of a tagalong sort or 
summary tagalong sort consists of sorted output records. 
These output records may contain all the information in 
the input records or only selected fields from the input 
records. 

In addition to creating the output file, the sort program, if 
requested by the sort sequence specifications, produces a 
report. This report may consist of images of all the sort 
sequence specifications, as well as diagnostic and status 
messages. Input to sort consists of information from OCL 
statements, the sort sequence specifications, and the input 
file. 



I/O STORAGE REQUIREMENTS 

The minimum region size for the sort program is 14K 
(14,336) bytes of main storage. 
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SYSTEM CONFIGURATION 

The sort program runs on all models of System/34. 

Phase Description 

Phase OA • Partially initializes COMMON, 

• Determines the location of the sort 
sequence specification statements. 

• Determines if input, output, and work 
file (FILE) statements are present. 

Phase OB • Completes Initialization of COMMON. 

• Allocates and dummy opens the input 
file. 

• Reads alternate collating sequence 
(ALTSEQ) statements. 

• Allocates the work file, if a work file 
(FILE) statement is present. 

Phase OC • Reads the sequence specification state- 

ments and checks them for errors. 

• Builds the select/build routine. 

• Creates the summary table. 



Ptiase Description 

Phase OD • Designs the sort by determining specific 

fields in COMMON. 

Phase OE * Allocates the output file, if the output 

file does not overlay the input file. 

• Allocates the work file, if a work file 
(FILE) statement is not present. 

• Determines if the work file is large enough 
to hold at least one work block. 

Phase OG • Handles error conditions for generation 

phases. 

Phase 1 • Prepares variable-length strings and places 

them in the work file. 

• Reads the input records and builds a work 
record for each input record selected for 
inclusion in the sort. 

Phase 2 • Merges strings until only one pass 

remains. 

Phase 3 ® Performs the final pass and places the 

sorted records into the output file. 

Phase 4 • Ends the job (cancels the job if any 

errors are present or indicates a success- 
ful completion). 
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Method of Operation 



From: System 



Bi INPUT 



Sort OCLand 

sequence 

specifications 



Select/build 
routine from main 
storage 

Input record file 

Work file 




PROCESS 



Prepares to sort the records (generation 
phases): 

• Initializes COMMON. 

• Reads and diagnoses header. 

O Diagnoses FILE statement 
information. 

® Reads and diagnoses sequence 
specifications and generates the 
select/build routine. 

• Designs execution phases. 

Sorts the records (execution phases): 

® Creates sort strings. 

O Does intermediate merge. 

O Does final merge. 



jsgmsEissmsBm 



p-.!'';-'i:l 



wit^iMg^aaTiw.flJ 



r 



OUTPUT dsaj&zssBSBBf 




'^^ Main storage: 



O Established sort 
variables in 
COMMON area 

O Select/build 
routine 



Work file 



*^ Output file: Sorted 
records or relative 
record numbers 



Diagram 5-1. Sort Overview 



To: System 
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Program Organization 

Diagram 5-2 shows the program organization of the sort 
program generation phases. 

Diagram 5-3 shows the program organization of the sort 
program execution phases. 
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Scheduler Work 
Area (format 1's) 



Header 
specification 



ALTSEQ 
statements 



( ^"" ) 




Phase OA (0.#GSORT) 



^^ 



Partially initializes COMMON. 

Determines the location of the sort sequence specifi- 
cation statements. 

Determines if input, output, and work file (FILE) 
statements are present. 



Phase OB (0.#GSBA) 



Completes initialization of COMMON. 

Allocates and dummy-opens the input file. 

Reads ALTSEQ statements. 

Allocates the work file, if a work file (FILE) state- 
ment is present. 



c=^ 



Listing of header 
specification 
and errors 



Terminal Error 




t> 



Listing of header 
specification 
errors and 
ALTSEQ state- 
ments and errors. 



Terminal Error 



1* 



I 



;^ 



Sequence 

specification 

statements 



c==;^ 



Phase DC (0.#GSCA) 



Reads sequence specification statements and checks 
them for errors. 

Builds select/build routine. 

Creates summary table. 




Diagram 5-2 (Part 1 of 2). Sort Generation Phase Organization 



> 



Select/build 
routine 



Terminal Error 




Summary table 



Listing of 
sequence specifi- 
cations and errors 



I 

I 
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Phase OD (0.#8SDB) 



Designs sort by determining specific fields in 
COMMON. 



Phase OE (0.#GSEA) 



Allocates output file, if not the same file as the input 
file. 

Allocates the work file, if work file (Fl LE) statement 
not present. 

Determines if work file is large enough to hold at 
least one work block. 





Phase OG (0.#GSGA) 



Handles error conditions for the generation phases. 



> 



Listing of 
messages 




Control flow 
I !^ Dataflow 



Diagram 5-2 (Part 2 of 2). Sort Generation Phase Organization 
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Input file 



Work file 



Work file 



f Enter ] 

I 



0.#GS1L 

Loads required phase 1 modules. 



\ 




fc== 



Phase 1 (0.#GS1X) 



Prepares variable length strings. 
Places strings in work file. 



> 



<C=i 



i 



0.#GS1Z 



Handles error conditions for execution phases. 

Gives control to proper phase (0.#GS2L, 0.#GS3L, 
orO.#GS4A). 




Yes 



0.#GS2L 



Loads required phase 2 modules. 



I 






Phase 2 (0.#GS2A) 



Merges strings until only one pass remains. 



I 



IP 




Select/build 
routine 



[=> 



Listing of 
messages 



Diagram 5-3 (Part 1 of 3). Sort Execution Phase Organization 
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Diagram 5-3 (Part 2 of 3). Sort Execution Phase Organization 
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1 




2P 



Phase 4 (0.#GS4A) 



Cancels job if any errors are found. 
Indicates successful completion of job. 



t> 



Listing of 
messages 



Control flow 
I ^ Data flow 



\ 



No Selected 
Records 



( End of job j 



Diagram 5-3 (Part 3 of 3). Sort Execution Phase Organization 
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Directory 

This section contains a quick-reference table that can be 
used to find sort phases on microfiche. The module names 
are indexed on the microfiche records. 

The table consists of the following: 

• Module Name is the symbolic label identifying the 
module in the program listings and on microfiche. 

• Major Functions is a brief list of specific functions the 
module performs within the program. 



Module 
Name 



Module 
Name 

0.#GS$A 



@GSZE 



@GSZF 



0.#GS$D 



0.#GS$E 



0.#GS$X 



#GSAA 



Major Functions 

• Prints sort's COMMON area with labels 
after phases OA, OB, OD, OE, and all 
passes. 

• Converts 4-bit groups into their 
equivalent 8-bit EBCDIC values. 

• Converts 1 byte of storage to printable 
EBCDIC values, 1 bit at a time. 

• Phase OD COMMON constants 

• Serves as input to 0.#GS$A when 
dumping COMMON. 

• Determines if there is enough available 
storage to load 0.#GS$A (sort 
COMMON dump routine). 

• If there is enough available storage, 
loads 0.#GS$A. 

• Phase 1 , 2, and 3 COMMON constants. 

• Serves as input to 0.#GS$A when 
dumping COMMON. 

• Determines the region size that the 
sort program has available to execute 
in. 

• Determines if the statement read by 
#GSAB is a header specification 
statement. 

• Partially diagnoses the header statement 
and issues messages if any errors are 
detected. 



#GSAB 



#GSAF 



0.#GSBA 
(phase OB) 



0.#GSCA 
(phase OC) 

#GSCA1 
#GSCA2 



Major Functions 

• Determines the location of the sort 
sequence specification statements. 

• Reads first sort sequence specifications 
statement. 

• Determines if there are input, output, 
and work file (FILE) statements. 

• Determines if the input and output 
files are the same file. 

• Finishes diagnosing the header state- 
ment and issues messages if any 
errors are detected. 

• Allocates and dummy opens the input 
file. 

• Allocates the work file, if work file 
(FILE) statement present. 

• Reads the statement following the 
header statement. 

• If ALTSEQ specified, loads and calls 
0.#GSBC. 

• Reads and diagnoses sort sequence 
specifications for one sort run. 

• Initializes the COMMON fields used 
by Phase OC. 

• If the print option entry is 0, prints 
the current statement. 

• Partially diagnoses the current 
statement. 

• Determines which phase OC module(s) 
(0.#GSCE, 0.#GSCF, 0.#GSCK, 
0.#GSCL, and 0.#GSCZ) to call to 
finish diagnosing the current statement 
and to generate code for it. 
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Module 
Name 



#GSCA5 



#GSCA6 



#GSCA8 



0.#GSBC 



@GSDC 



@GSEG 



@GSZB 



@GSZC 



0.#GSCB 



Major Functions 

• Moves code generated in 0.#GSCE and 
0.#GSCF to the generated code area. 

• Determines if there is enough storage 
available for more code to be generated. 

« Determines the zone of a given byte 
by testing the zone portion of that 
byte. 

• Builds the error table starting with the 
highest available address. 

o Checks error table; if full, passes 
control to 0.#GSCZ. 

• Reads and diagnoses ALTSEQ state- 
ments and issues messages if any errors 
are detected. 

» Modifies the 256-byte alternate 
collating sequence table as specified 
on the ALTSEQstatements that are 
read in. 

© Computes the initial area in phase 1 
to be assigned to the internal sort area. 

• Determines the space needed for the 
work file and uses special allocate to 
automatically allocate it. 

• Converts an unsigned zoned decimal 
number (up to 7 bytes long) to a 3-byte 
hex number. 

• Converts a 3-byte hex number to a 
7-byte zoned decimal number and 
concatenates a sign byte to the result. 

• Issues error messages based on the 
error table generated in phase OC. 

• Determines if any terminal errors were 
diagnosed by phase OC; if they were, 
passes control to 0.#GSGA. 



Module 
Name 

0.#GSCC 



0.#GSCE 



0.#GSCF 



0.#GSCK 



0.#GSCL 
@GSCA9 



@GSCA7 



Major Functions 

• Moves the select/build routine to its 
final position in storage. 

• Moves the summary table behind 
select/build routine if summary sort 
is used. 

• Diagnoses the sequence specification 
statements to determine if they are 
valid include or omit statements. 

• Generates code segments from the 
information on the include/omit 
statements. 

• Diagnoses the sequence specification 
statements to determine if they are 
valid field statements. 

• Generates code segments from the 
information on the field statements. 

o Diagnoses include/omit record type 
specifications with a factor 2 keyword. 

• Generates a valid include/omit 
sequence specification statement. 

• Calculates module length. 

o Diagnoses errors in the factor 1 and 
factor 2 field lengths for include/omit 
record type specifications. 

• Diagnoses errors in the from and to 
location entries for field specifications. 

• Calculates displacement values for 
include, omit, and field statements. 

o Converts the to and from fields of 
factors 1 and 2, and the to and from 
location entries for field specifications, 
to binary. 
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Module 




Module 


Name 


Major Functions 


Name 


0.#GSCZ 


• Completes select/build code. 


0.#GS1X 
(phase 1 ) 



0.#GSDA 



0.#GSDB 
(phase OD) 



0.#GSEA 
(phase OE) 



0.#GSGA 
(phase OG) 



0.#GSORT 
(phase OA) 



0.#GSZA 
0.#GS1D 



0.#GS1 L 



• Moves the summary table to phase 1 
location behind COMMON. 

• Determines the active program lengths 
of modules 0.#GS1 X, 0.#GS2A, 
0.#GS3A, and 0.#GS3S. 

• Designs the execution phases of the 
sort program (phase 1 , phase 2, and 
phase 3). 

• Checks for terminal error in design 
of sort; if found, passes control to 
0.#GSGA. 

• Allocates output file, if not the same 
file as the input file. 

• If work file (FILE) statements 
omitted, calls automatic work file 
allocation (@GSEG). 

• Issues messages indicating errors 
found in and information determined 
in the preceding generation phases. 

• initial sort load module. 

• Contains COMMON and initializes 
portions of it. 

• Moves a given number of bytes from 
one area in storage to another. 

• Calculates and places in COMMON 
the sector address (SSS) of the current 
work block. 

• Calculates and places in COMMON the 
SSS of the next work block. 

• Performs initialization for 0.#GS1X. 



0.#GS1Z 



0.#GS2A 
(phase 2) 



0.#GS2L 



0.#GS3A 
(phase 3) 



0.#GS3L 



Major Functions 

• Performs a tournament sort. 

• Produces variable length strings of 
sequenced work records. 

• Places a string of a variable number of 
work record blocks onto the work file. 

• At end of pass for a summary sort, 
moves the summary table from the 
next byte after the select/build code 
to the next byte after COMMON. 

• Issues messages indicating errors found 
In and information determined in the 
preceding execution phase. 

• Merges strings created in phase 1 until 
the total number of strings is less 
than or equal to the sort's order of 
merge. 

• Loads into storage the required phase 
2 modules for 0.#GS2A. 

• Allocates the output file, if it Is the 
same file as the input file. 

• Performs last pass of the merge. 

• Places the sorted records consecutively 
in the output file. 

• Performs initialization for the phase 3 
modules (0.#GS3A/0.#GS3S). 

• Loads into storage the modules 
required by 0.#GS3A/0.#GS3S to 
perform phase 3. 

• If the number of remaining strings 
is less than the order of merge, 
redesigns the sort for phase 3. 
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Module 
Name 

0.#GS3S 
(phase 3) 



@GSZD 



@GSZM 



0.#GS4A 
(phase 4) 



Major Functions 

• Allocates the output file, if it is the 
same file as the input file. 

• Performs last pass of the merge. 

• If no summary table exists, deletes 
duplicate records. 

• If a summary table exists, summarizes 
duplicate records as specified. 

• Places the sorted records consecutively 
in the output file. 

• Divides a 3-byte hex number Into 
another 3-byte hex number. 

• Multiplies two 3-byte hex numbers. 

• Issues displayed message and ends the 
job after unsuccessful completion via 
the SYSLOG transient routine. 



• Terminates the sort program after 
successful completion. 

0.#GS9G • Provides the logical get I/O function 

for the work file. 

0.#GS9I • Reads sort sequence specification state- 

ments from a procedure member or 
entered through the display station 
keyboard. 

0.#GS9P • Provides the logical put I/O function 

for the work file. 

0.#GS9S • Reads sort sequence specification 

statements from a source member. 
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Data Areas 



Data Area 



Description 



This section describes data areas used by the sort program: 
Data Area Description 



COMMON 



COMMON is a 256-byte-plus-two-DTF- 
lengths interphase table used by phases 
in both generation and execution por- 
tions of sort. COMMON is loaded into 
storage as the first 256-bytes-plus-two- 
DTF-lengths of the phase OA load 
member. 

#GSC in COMMON, the first 4 bytes 
of COMMON, contains C'#GSC'. This 
field serves as an identification for sort 
COMMON. 

The macro DSEQU generates the 
labels required by each individual 
module to access fields it needs in 
COMMON. To locate these labels and 
the offsets for them, look up #GSC in 
the cross-reference table of any 
module. 



ALTERNATE 
COLLATING 
SEQUENCE 
TABLE 



OLDS 

STRUCTURED 
ELEMENT 
ARRAY 



The alternate collating sequence table, 
if requested, is located in the last 256 
bytes in main storage until phase 2 and 
contains all the hex values. The table 
is modified by 0.#GSBC according to 
the ALTSEQ statements. 

The OLDS structured element array, 
built by 0.#GS9G, contains informa- 
tion on a maximum of 18 old sort 
strings. OLDS@ in COMMON contains 
the address of this array. Each 16-byte 
entry contains: 



Byte 


Contents 


0-2 


Sector address (SSS) of 




current block of strings 


3-4 


Total number of records in 




block 


5-6 


Number of records taken 




from block 



PHASE© PHASE@ in COMMON contains either 

the address of the current phase or the 
address of the next phase to be loaded. 
Immediately before control is to be 
passed to the next phase, PHASE@ is 
loaded with the address of where to 
load that phase. During execution of 
the current phase (before the point 
where control is to be passed to the 
* next phase), PHASE@ contains the 
address of where the current executing 
phase was loaded. 

ERROR TABLE The error table is built backwards by 
0.#GSCA; that is, the first entry is at 
a higher location in storage than the 
second entry. A 3-byte entry is placed 
in the table for each error found on 
the sequence specification statements. 
The first 2 bytes contain the statement 
number where the error was found; the 
third byte contains the error number. 

BEGER1 in COMMON contains the 
address of the error table. 



7-8 Buffer address 

9-10 Block address 

11-12 Address of current record in 
block 

13-15 Sector address (SSS) of next 
block of string 

AVAI L TABLE 0.#GS9G builds the AVAI L table so 
that the first entry is at a higher loca- 
tion in storage than the second entry. 
The address of the table is found at 
@AVAIL in COMMON. Each 5-byte 
entry contains this information about 
the available blocks on disk: 

Byte Contents 

0-2 Sector address (SSS) of 

block 

3-4 Total number of records in 

block 
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Data Area 



Description 



SUMMARY 
TABLE 



This table, built by 0.#GSCF, contains 
information about the type, length, 
and location of the summary fields 
within the work record. The table 
consists of 1-25 entries. If bit 3 of 
ATTRQ1 in COMMON is 1, then the 
first entry is that of the overflow 
indicator field. Otherwise, the first 
entry is the first summary data field. 
The entries contain: 



Overflow Indicator 
Byte Contents 

XLl'FF'=Overflow indicator 



TABLE of WORK 
FILE EXTENTS 




1 

2-3 



Overflow indicator character 
(from record character 
column) 

Displacement of field from 
start of work record 



First Summary Field 
Byte Contents 



XL1 '00 -Digit or unpacked 

decimal 
XL1'80'=Character (integer) 
XLr40'=Packed decimal 



1 


Field length minus 1 


2-3 


Displacement of first field 




from start of work record 




(rightmost byte) 


Following Summary Fields 


Byte 


Contents 





Type 


1 


Field length minus 1 


2-3 


Displacement of this field 



from previous field (rightmost 
byte) 



0.#GSBA or 0.#GSEA builds this 
21 -byte table in COMMON. The high- 
order byte is MVFTBL In COMMON. 
The first 3 bytes in the table contain 
three 1-byte device addresses 
(MVFQ1-MVFQ3), one address for 
each extent. The remainder of the 
table gives 6 bytes of information for 
each extent in this format: 

Byte Contents 

0-2 Disk SSS 

3-5 Accumulated number of 

sectors with this extent 

The last 3 bytes of each 6-byte entry 
are converted by 0.#GSDA. Each 
entry then contains: 

Byte Contents 

0-2 Disk SSS 

3-5 Accumulated number of work 

file blocks with this extent 
(MVF#1-MVF#3) 
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Diagnostic Aids 



Message 



Module 



This section lists the displayed and printed messages 
diagnosed by sort and the modules that diagnose them. 



MESSAGES 



Message 



Module 



SORT-7002 


SORT procedure 


SORT-7004 


SORT procedure 


SORT-7005 


SORT procedure 


SORT-7007 


SORT procedure 


SORT-7101 


#GSORT 


SORT-7102 


#GSORT 


SORT-7103 


#GSORT 


SORT-7104 


#GSORT 


SORT-7105 


#GSORT 


SORT-7150 


#GSCB 


SORT-7151 


#GSBA 


SORT-7152 


#GSBA 


SORT-7154 


#GSBA 


SORT-7155 


#GSBA 


SORT-7156 


#GSBA 


SORT-7157 


#GSBA 


SORT-7158 


#GSBA 


SORT-7159 


#GSBA 


SORT-7160 


#GSBA 


SORT-7161 


#GSBA 


SORT-7162 


#GSBA 


SORT-7176 


#GSBC 


SORT-7177 


#GSBC 


SORT-7178 


#GSBC 


SORT-7179 


#GSBC 


SORT-7181 


#GSBC 


SORT-7202 


#GSCA 


SORT-7204 


#GSCA 


SORT-7206 


#GSCA 


SORT-7208 


#GSCA 


SORT-7210 


#GSCA CK 


SORT-7212 


#GSCA 


SORT-7214 


#GSCA 


SORT-7216 


#GSCZ 


SORT-7218 


#GSCA 


SORT-7220 


#GSCA 


SORT-7222 


#GSCF 


SORT-7224 


#GSCK CA9 


SORT-7225 


#GSCK 


SORT-7226 


@CSCA9 


SORT-7228 


@GSCA9 



SORT-7230 


#GSCA 


SORT-7232 


#GSCE 


SORT-7234 


#GSCE 


SORT-7236 


#GSCE 


SORT-7238 


@GSCA9 


SORT-7240 


@GSCA9 


SORT-7242 


@GSCA9 


SORT-7244 


#GSCFCA9 


SORT-7246 


#GSCA 


SORT-7248 


#GSCF 


SORT-7250 


#GSCF 


SORT-7252 


@GSCA9 


SORT-7254 


#GSCF 


SORT-7256 


@GSCA9 


SORT-7258 


@GSCA7 


SORT-7262 


@GSCA9 


SORT-7264 


#GSCB 


SORT-7266 


#GSCE 


SORT-7268 


@GSCA9 


SORT-7276 


#GSCF 


SORT-7278 


#GSCF 


SORT-7280 


#GSCF 


SORT-7282 


#GSCZ 


SORT-7284 


#GSCZ 


SORT-7286 


#GSCF 


SORT-7288 


@GSCA9 


SORT-7391 


#GSDB 


SORT-7395 


@GSEG 


SORT-7401 




SORT-7402 




SORT-7403 




SORT-7404 




SORT-7422 


#GSCB 


SORT-7423 


#GS9I 


SORT-7425 


#GSCB DB EG 


SORT-7450 




SORT-7451 




SORT-7452 




SORT-7453 




SORT-7461 




SORT-7462 




SORT-7600 




SORT-7601 




SORT-7602 




SORT-7603 




SORT-7620 


#GS1X 


SORT-7681 


#GS1Z 


SORT-7690 




SORT-7691 





Figure 5-1 (Part 1 of 2). Sort Message - to - Module Cross Reference 
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Message 



Module 



SORT-7692 
SORT-7693 
SORT-7694 
SORT-7695 
SORT-7721 
SORT-7722 
SORT-7723 
SORT-7724 
SORT-7725 
SORT-7727 
SORT-7728 
SORT-7729 
SORT-7730 
SORT-7731 
SORT-7732 
SORT-7733 
SORT-7781 
SORT-7800 
SORT-7801 
SORT-7901 
SORT-7902 
SORT-7928 
SORT-7929 
SORT-7930 
SORT-7931 
SORT-7932 



#GS1X 



#GS9S 

#GSCB 

#GS9I 

#GS1X 

#GSCB DB EG 

#GS$A 

#GS1X 

#GS1X9G9P 

#GS3A 3S 

#GS1D 

#GS3A 3S 

@GSEG 

#GSCB, 1Z, 2A, 3L, 3 A, 3S, 4 A, 9G 

#GS$E 



#GS1X 
#GS1X9G9P 
#GS3A 3S 
#GS1D 
#GS3A 3S 



Figure 5-1 (Part 2 of 2). Sort Message - to - Module Cross Reference 
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PROCEDURES 

When the SORT command is entered, the following proce- 
dure is executed: 



// MEMBER PR0GRAM1-#GS#MM 

// MEMBER USER1-#GS#M]^1 

// LOAD #GSORT 

// FILE NAME- INPUT, LABEL- input file label ,DISP-SHR 

// FILE NAME-OUTPUT, LABEL-output file label ,RECORDS-number of 

records 
// RUN 
// SOURCE source member ,[user library name] 
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Appendix. Acronyms and Abbreviations 



The following acronyms and abbreviations are used in this 


SAV 


manual: 




SCB 
SDA 


APAR 


Authorized Program Analysis Report 


SDB 


CDB 


C-spec data block 


SEU 


CSA 


C-spec specification area 


SFGR 


CSB 


C-spec specification block 


SRB 


CSP 


C-specification 


SSA 


DFU 


Data file utility 


SSB 


DSA 


Data specification area 


SSP 


DSB 


Data specification block 


SSS 


DTP 


Define the file 




EJ 


End of WSU job 


TRN 


EOJ 


End of job 


TSA 


ES 


End of sequence 


TSB 


EW 


End of work session 


VTOC 


FDB 


File data buffer 


WCA 


FIA 


Format index area 


WCB 


PSA 


File specification area 


WCR 


PSB 


File specification block 


WDB 


hex 


hexadecimal 


WSDTF 


HlPO 


Hierarchy, plus input, process, output 


WSU 


ID 


identification 




IPB 


Initialization parameter block 




IJ 


Job initiation 




IW 


Work session initiation 




JCR 


Job control record 




JDB 


Job data block 




K 


1024 (bytes) 




MDB 


Message data block 




MIA 


Master index area 




MIC 


Message identification code 




MSA 


Message specification area 




MSB 


Message specification block 




NEP 


Never ending program 




OCL 


Operation control language 




PPSA 


Procedure parameter save area 




PSA 


Process specification area 




PSB 


Process specification block 




QSA 


Queued save area 




QSB 


Queued save area blocks 




RID 


Record identifier 




RSA 


Routine specification area 




RSB 


Routine specification block 




RTN 


WSU execution routine 





Screen save/restore area 

Storage control block 

Screen design aid 

Screen data buffer 

Source entry utility 

Screen format generation routine 

Storage request block 

Screen specification area 

Screen specification block 

System Support Program Product 

The format for representing the physical address 

of a data field (sector) on disk. 
Transient 

Transient specification area 
Transient specification block 
Volume table of contents 
Work station control area 
Work station control block 
Work station control record 
Work session data block 
Work station DTP 
Work station utility 
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